[已解决]求助用vba根据C1查找A列相同数据，筛选到B列。

清华

求助用vba根据C1查找A列相同数据，筛选到B列。

最佳答案

月排行榜 / 总排行榜

孤单无所谓

2012-12-9 09:24

Sub tiqv()
Dim a, b
   a = Application.CountA([a:a])
For b = 1 To a
       If Cells(b, 1) Like "*" & Cells(1, 3) & "*" Then
Cells(b, 2) = Cells(b, 1)
Else
Cells(b, 2) = ""
End If
Next
End Sub
水平比较低，代码比较长

跳转到最佳答案楼层

孤单无所谓

Sub tiqv()
Dim a, b
   a = Application.CountA([a:a])
For b = 1 To a
       If Cells(b, 1) Like "*" & Cells(1, 3) & "*" Then
Cells(b, 2) = Cells(b, 1)
Else
Cells(b, 2) = ""
End If
Next
End Sub
水平比较低，代码比较长