Question

关于EXCEL宏命令！急！

Sub aa()
Sheets("表2").Select
Range("A1").Select
Selection.Copy
Sheets("表1").Select
ActiveSheet.Paste

Sheets("表2").Select
Range("A2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("表1").Select
Range("E14:I14").Select
ActiveSheet.Paste
End Sub

上面是我录制的一段宏，大概内容就是这样了，（注意：下面是复制，不适等于，用后表2要被删除的）
把表2中A1的内容复制到表1的E13:I13中
把表2中A2的内容复制到表1的E14:I14中
把表2中A3的内容复制到表1的E15:I15中
……

Answer 1

sub aa()
for i =1 to 600
sheet("表1").cells(i+12,5)=sheets("表2").cells(i,1)
next i
sheets("表2").columns(1).clear
end sub