我是做一个数据拷贝的程序,通过条件判断语句,确定sheet2中需要拷贝的内容(是一个区域),顺序粘贴到sheet3中。
我做了一个程序,现运行时报错(1004),请赐教有何问题。
Private Sub CommandButton1_Click()
Dim i
Dim j
For i = 1 To 96 Step 13
For j = 1 To 1674
If Sheet3.Cells(i, 1) = Sheet2.Cells(j, 1) Then
Sheet2.Range(Cells(j, 1), Cells(j * 13, 20)).Copy Destination:=Sheet3.Range(Cells(i, 4))
Exit For
End If
Next j
Next i
End Sub