如何用VBA语言从一个工作表里，条件选择一些数据，然后将符合条件的全部数据复制到另一个表里

Question

Sub 宏1()
Dim a%, b%
b = 2
For a = 5 To 100
If Sheet1.Cells(a, 2) = Sheet2.Cells(1, 1) Then
Sheet2.Cells(b, 1) = Sheet1.Cells(a, 1)
b = b + 1
Else: b = b
End If
Next a
End Sub
像这样，我只能挑出最早满足条件的一行数据，后面满足条件的挑不出来？

Answer 1

你的代码没有问题，你是想实现：

将sheet1 5-100行 B列=sheet 2 A1 的A列结果填到sheet2，

如果是，那就没错的。检查下你那5-100行数据里是否满足的只有一个追问

不止的，有几行。而且程序在调试时也显示loop 没有 do， 不知道怎么回事了。可以加Q具体帮帮我吗？ 753427572