最简单的就是加数据过滤, 筛选出符合条件的即可。 或者这个时候再复制, 也是只复制筛选出来的内容。
For i = 1 To 20
If Sheet1.Cells(1, i) = "请选择销售模块" Then
a = i
Exit For
End If
Next i
i = 2
b = 1
Do While Sheet1.Cells(i, 1) <> ""
If Sheet1.Cells(i, a) = "√" Then
Rows(i & ":" & i).Select
Selection.Copy
Sheets("Sheet2").Select
Rows(b & ":" & b).Select
ActiveSheet.Paste
Sheets("Sheet1").Select
b = b + 1
End If
i = i + 1
Loop