写一段VBA代码，筛选出A列有但是B列没有的数据

以下是回答：

Sub FilterData()
Dim lastRow As Long
lastRow = Range("A" & Rows.Count).End(xlUp).Row

Range("A1:B" & lastRow).AutoFilter Field:=2, Criteria1:="="

Range("A2:A" & lastRow).SpecialCells(xlCellTypeVisible).Select
End Sub

我可以回答这个问题。