[已解决]VBA语句如何筛选非空单元格？

lane0551

	A	B
1	座位号	姓名
2	001	张三
3	002	李四
4	003
5	004	王五
6	005
7	006

如表所示，若用VBA，如何筛选B列非空单元格？

请高手帮忙！谢谢！

[此贴子已经被作者于2010-10-24 14:20:30编辑过]

最佳答案

月排行榜 / 总排行榜

那么的帅

2010-10-24 13:22

Sub 筛选B列非空单元格()

    With Sheets("SHEET1")
        .Range("B1").Select
        Selection.AutoFilter Field:=2, Criteria1:="<>"
    End With

End Sub

跳转到最佳答案楼层

那么的帅

Sub 筛选B列非空单元格()

    With Sheets("SHEET1")
        .Range("B1").Select
        Selection.AutoFilter Field:=2, Criteria1:="<>"
    End With

End Sub

jstz

录制宏看看

lane0551

QUOTE:

以下是引用那么的帅在2010-10-24 13:22:00的发言：

Sub 筛选B列非空单元格()

    With Sheets("SHEET1")
        .Range("B1").Select
        Selection.AutoFilter Field:=2, Criteria1:="<>"
    End
  With

End
  Sub

谢谢！

[此贴子已经被作者于2010-10-24 14:21:59编辑过]

那么的帅

Sub 筛选()

    With Sheets("SHEET1")
        .Range("B1").Select
        Selection.AutoFilter Field:=2, Criteria1:="<>"  '条件在Criteria1:= 后面
        'Selection.AutoFilter Field:=2, Criteria1:="张三"  '这句是筛选 张三 ，文本要用双引号，数值数值不用双引号
    End With

End Sub