请问我这段代码是哪里错了，完全不知道头绪

qingliang_yan

Sub test()
Dim a As Integer, b As Integer
b = 4
For a = 1 To 33 Step 1
If Worksheets("数据整理").Cells(a, 3) = "女" And Sheet1.Cells(a, 5) = "博士" And Sheet1.Cells(a, 6) = "会计" And Worksheets("数据整理").Cells(a, 9) = "会计" Then
Worksheets("数据整理").Rows(a).Copy Cells(b, "M")
a = a + 1
b = b + 1
End If
Next
End Sub

迪尼索斯

Worksheets("数据整理").Rows(a).Copy Cells(b, "M")   ？？？

qingliang_yan

迪尼索斯 发表于 2019-3-25 10:15
Worksheets("数据整理").Rows(a).Copy Cells(b, "M")   ？？？

复制满足条件的a行到b行M列