Excel VBA根据指定单元格自动筛选数据？
参考下面处理
Excel如弊肆洞何用数据有效性筛选数据到雹哪新表租枯
vba 中怎么实现excel的筛选功能
给你分享一段我之前写的例子 ，希望对你有帮助。
With Sheet1.UsedRange
.AutoFilter '激活筛选状态
.AutoFilter Field:=3, Criteria1:="XX" '筛选条悉败逗件 Field:=3意枯做味着筛选对象在Sheet1已使睁卖用区域的第3列，Criteria1:="XX" XX代表你所设定的筛选条件
.AutoFilter '解除筛选状态
End With
ps. 我也是初学者，慢慢摸索就会了。
Excel vba如何判断筛选好的某一区域是否为空（即均为空单元格）?
Sub 筛选后判断()
Dim rng As Range
Dim cng As Range
Dim arr, r%
r = ActiveSheet.[a65536].End(3).Row
ActiveSheet.Range(Cells(1, 1), Cells(r, 4)).AutoFilter Field:=4, Criteria1:="="
For Each cng In Range("A2", [a65536].End(3)).SpecialCells(xlCellTypeVisible)
Set rng = cng
arr = rng.EntireRow
If arr(1, 5) = "" Then
MsgBox rng.Address
End If
Next
Set rng = Nothing
End Sub
假设第4列是自动筛选列 ,第5列是筛选后需要判断是否为空的列, 第1行为标题行
EXCEL VBA 筛选，对筛选结果赋值或计算
dim
i
as
long
'获取A列末行
dim
endRowA
as
long
endRowA
=range("A:"
rows.count).end(xlUp).row
'循环第二行至A列末行
for
i=2
to
endRowA
if
range("A:"
i).value5
then
'对A列进行筛选，这扰配键里的筛选条件缓巧是值大于5
Rows(i
":"
i).EntireRow.Hidden
=
False
'满足条卖脊件的取消行隐藏
range("B:"
i).value=range("A:"
i).value
'操作B列，这里B列赋值为A列的值
else
Rows(i
":"
i).EntireRow.Hidden
=
True
'不满足条件的进行隐藏
next
i
Excel 如何使用VBA筛选实现数据分类
Dim i, j, k As Integer
k = 1 'k赋初值
i = InputBox("please input the item num:") '给出总行数信息
For j = 1 To i '循环判断
If Sheets("sheet1").Cells(j, 5).Text = 1 Then '如果第5列的值等于1
Sheets("sheet1").Select
Range(Cells(j, 1), Cells(j, 5)).Select '选中表1中前五列数肢困据
Selection.Copy '复制
Sheets("Sheet2").Select '选中表尘判2
Range(Cells(k, 1), Cells(k, 5)).Select '选中表2的前5列
ActiveSheet.Paste Link:=True '粘贴链接
k = k + 1 '表2行号增加
End If
Next
Application.CutCopyMode = False '退出复制粘贴模式 这句和下面的语句为辅助语句可删
Cells(1, 1).Select需历兄念输入总行数，希望能帮到你。
excel用VBA如何智能筛选？
包含数上色，可以直接用循环就可以。对符合条件的range对象设置单元格格式。
统计符合多条件的单元格数量，也可以使用循环。判断每一行的对应几列的几个单元格是否符合条件，符宏御合条件就用数字自加即可。如果需要筛选出来，则需要用单元格并集intersect函数，并集之后铅缺提取出来就行。也可以一边循环一遍复制出来。只是这样比较慢一点而已。
因为写代码耗时耗力，我这蔽激岩里只给提供一点思路。需要写代码的话可以私信我。如果还有其他问题，可以即系追问或者私信。