[已解决]求个代码怎么写

faiki

要求是,把表2到表6的A1365:A2000的数据分别复制到表1的B1365到F列,再清除表2到表6的A1365:A2000的数据

最佳答案

月排行榜 / 总排行榜

ws278106483

2012-4-29 14:25

我做了一个简单的，你看一下。是不是这样的。
我是把表2到表6的，a8:a20 复制到表1 B 到E了，您看一下，如果可以，改一上数字就可以了。

跳转到最佳答案楼层

cbg2008

Sub tt()
Dim x%
With Worksheets("表1")
For x = 2 To 6
    Worksheets("表" & x).Range("a1365:a2000").Copy .Cells(1365, x)
    Worksheets("表" & x).Range ("a1365:a2000")
Next
End With
End Sub

faiki

cbg2008 发表于 2012-4-29 13:44
Sub tt()
Dim x%
With Worksheets("表1")

提示下标越界,怎么回事?

ws278106483

Sub t()
Dim x As Integer
Dim y As Integer

For x = 2 To 6 Step 1


Sheets("表" & x).Range("A1365:A2000").Copy Destination:=Sheets("表1").Range(Cells(1365, x), Cells(2000, x))
Sheets("表" & x).Range("A1365:A2000").Clear

Next x

End Sub

ws278106483

我做了一个简单的，你看一下。是不是这样的。
我是把表2到表6的，a8:a20 复制到表1 B 到E了，您看一下，如果可以，改一上数字就可以了。

cbg2008

改成你的真实表名

cbg2008

Sub tt()
Dim x%
With Worksheets(1)
For x = 2 To 6
    Worksheets(x).Range("a1365:a2000").Copy .Cells(1365, x)
    Worksheets(x).Range("a1365:a2000").Clear
Next
End With
End Sub
我改了一下，用这个吧