Question

excel vba如何快速复制多区域到另表相同位置

例：表一B14：K43到M14：V43。。。。。向右这样的区域有23个
表一B14：K43到M53：V82。。。。。向下这样的区域有14个
用VBA，快速复制另表相同位置
http://pan.baidu.com/s/1sjx2sWX
只复制黄色的区域（其它地方不用任何动作）
将（11表）复制到（12表）

Answer 1

源区域的位置有规律性么？
另表的区域有规律性么？
样表附件上来，图文最佳。
或扣
一五九六三九七零

追问

http://pan.baidu.com/s/1sjx2sWX
只复制黄色的区域（其它地方不用任何动作）
将（11表）复制到（12表）

追答

其实，建议整表复制，多方便的。

分区域复制的代码如下(样表附件中)：

Sub test()
Dim mRow As Long, Mcol As Long
Dim sh2 As Worksheet
Set sh2 = Worksheets("21")
With Worksheets("11")
  For mRow = 14 To 521 Step 39
    For Mcol = 2 To [ij1].Column Step 11
      .Cells(mRow, Mcol).Resize(30, 10).Copy sh2.Cells(mRow, Mcol)
    Next
  Next
End With
End Sub