vba中過濾一行怎麼用

A. excel VBA下如何選擇篩選後，可見單元格的第一行或第三行，第一個單元格或第三個單元格。

我的方法是集成了多位大神的結果，解決了我的問題（我想將篩選出來的行及其後的三行一起刪掉，篩選條件是宏錄制的）。代碼如下：

『篩選條件，可使用宏錄制，然後修改

j=rows("2:2000").specialcells(12).row 『獲取篩選的行號，「2：2000」是篩選的范圍，根據需要修改

Rows(j & ":" & (j+3)).Select 』選中篩選的行及其後3行，根據需要修改

』選中後的操作，可使用宏錄制，然後修改

網頁鏈接網頁鏈接

B. excel用VBA如何智能篩選

包含數上色，可以直接用循環就可以。對符合條件的range對象設置單元格格式。
統計符合多條件的單元格數量，也可以使用循環。判斷每一行的對應幾列的幾個單元格是否符合條件，符合條件就用數字自加即可。如果需要篩選出來，則需要用單元格並集intersect函數，並集之後提取出來就行。也可以一邊循環一遍復制出來。只是這樣比較慢一點而已。
因為寫代碼耗時耗力，我這里只給提供一點思路。需要寫代碼的話可以私信我。如果還有其他問題，可以即系追問或者私信。

C. VBA怎麼取篩選後數椐區的第二行，第一行為數椐區表頭固定，第二行篩選是變動的

這個恐怕不好做。

可行的辦法。

先高級篩選，把數據篩選到其他表格。
然後選擇range("a1:b10") --- 比如數據有10列。
即可。

D. 急求VBA大神！如何用VBA，將表中符合條件的數據所在的行篩選出來

SubVBA()
OnErrorResumeNext'主要過濾掉值為0的情況
T=Sheets(1).UsedRange.Rows.Count
arr1=Sheets(1).Range("a1:m"&T)
Dimarr2
ReDimarr2(1ToT-1,1To15)
Forn=1ToUBound(arr2)
Fori=1To13
arr2(n,i)=(arr1(n+1,i)-arr1(n,i))/arr1(n,i)
Next
Next
Sheets(2).[a1:m1].Resize(UBound(arr2))=arr2
TT=Sheets(2).UsedRange.Rows.Count
Fori=1ToTT
Sheets(2).Range("o"&i)=Abs(Application.WorksheetFunction.Sum(Sheets(2).Range("a"&i&":m"&i)))
TTT=Sheets(3).UsedRange.Rows.Count
IfSheets(2).Range("o"&i)<0.3Then
Sheets(3).Range("a"&TTT+1&":m"&TTT+1)=Sheets(1).Range("a"&TTT+1&":m"&TTT+1)
Sheets(3).Range("a"&TTT+2&":o"&TTT+2)=Sheets(2).Range("a"&TTT+2&":o"&TTT+2)
EndIf
Next
EndSub

E. VBA，如何讓公式總是在篩選出來的第一行取數據

下面的宏在篩選可是范圍內循環
Sub test()
Dim SX As Range, aR As Range, r As Range, bt As Integer
Set SX = ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
For Each aR In SX.Areas '逐個單一選定區域
For Each r In aR.Rows '逐個行
If bt Then
'用r.Cells(1, 1)引用A列單元格
Else '跳過標題行
bt = 1
End If
Next
Next
End Sub

F. excel 怎麼通過vba過濾出一行的重復的數據

度友，你好，如圖，公式：=MID(SUM(MID(A1&1/17,SMALL(FIND(ROW($1:$10)-1,A1&1/17),ROW($1:$10)),1)/10^ROW($1:$10)),3,COUNT(FIND(ROW($1:$10)-1,A1)))

如果是2016版本的，支持TEXTJOIN的話，公式：=TEXTJOIN("",1,IF(ISNUMBER(FIND(ROW($1:$10)-1,A1)),ROW($1:$10)-1,""))

數組公式，需要shift+ctrl+enter三鍵結束

G. 在excel中，怎麼用VBA設定第一行為篩選常態

在執行AutoFilter之前，加一個判斷即可：

IfNotWorksheets("Sheet1").AutoFilterModeThen...

H. EXCEL vba第一行隨便那列輸入關鍵詞 篩選數據

PrivateSubWorksheet_Change(ByValTargetAsRange)
IfTarget.Row=1AndTarget.Column<=26Then
Dimv,RngAsRange,iAsByte
Application.ScreenUpdating=False
i=Target.Column
v=CStr(Target)
SetRng=Intersect(Range("A2").CurrentRegion,Rows("2:6553"))
IfLen(v)=0Then
Rng.AutoFilterfield:=Target.Column
ExitSub
EndIf
IfTarget.Column=1Then
Range("A:A").TextToColumnsDestination:=Range("A1"),DataType:=xlDelimited,FieldInfo:=Array(1,2)
Rng.AutoFilterfield:=1,Criteria1:="*"&v&"*"
Range("A:A").TextToColumnsDestination:=Range("A1"),DataType:=xlDelimited,FieldInfo:=Array(1,1)
Else
Rng.AutoFilterfield:=i,Criteria1:="*"&v&"*"
EndIf
Application.ScreenUpdating=True
EndIf
EndSub

I. excel，如何通過VBA代碼刪除篩選出來的行，但保留第一行

activesheet.range("a2:a"& activesheet.usedrange.rows.count).entirerow.specialcells(xlvisible).delete