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