你好，请教一个问题如何将sheet2中的(Ai,Tj)区域复制到sheet3中的（Bk，Wl)中，i,j,k,l均为变量，谢谢。

Question

我是做一个数据拷贝的程序，通过条件判断语句，确定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

Answer 1

选中你要复制的选取，按住Ctrl+Alt ,用鼠标放在选框的边线上，直接往下推到Sheet3 BK 位置就可以了

Answer 2

sub nn()
sheets("sheets3").range(cells(bk,wl),cells(bk,wl)).value=sheets("sheet2").range(cells(ai,tj),cells(ai,tj)).value
end sub
其中,range是由左上以及右下的cells(x,y)的单元格组成,x,y可以使变量,根据条件判断出x,y即可.

Answer 3

将Sheet2.Range(Cells(j, 1), Cells(j * 13, 20)).Copy Destination:=Sheet3.Range(Cells(i, 4))

改成：

Worksheets("Sheet2").Range("A" & i & ":T" & j).Copy Destination:=Worksheets("Sheet3").Range("D" & i)

我也挺奇怪，为什么上面的不行，也期待高手作答！本回答被网友采纳

Answer 4

你重新开机关机再式