EXcel VBA从一个工作簿的指定区域拷贝内容到另一个工作簿的指定区域

EXcel VBA从一个工作簿的指定区域拷贝内容到另一个工作簿的指定区域)

Sub createtable()

Dim Quantity As Long
Dim loop_i As Long
Dim position As String

Quantity = ActiveSheet.Range("D45")

If IsEmpty(Range(“A48”)) Then
For loop_i = 1 To Quantity
position = 48 + (loop_i - 1) * 6
Sheets(“template”).Select
Range(“A6:L10”).Select
Selection.Copy
Sheets(“Project Informaiton”).Select
Range(“A” & position).Select
ActiveSheet.Paste

Next
Else
   MsgBox "The target area has data, it can not be filled!"
End If

End Sub

【说明】
被复制的信息存放在名为“template”工作簿中从A6到L10的单元格中。
需要连续复制的数量定义在“Project Information”工作簿的单元格D45中。
当执行VBA宏，将被复制的信息复制到“Project Information”工作簿中A54开始的连续单元格下。
其中变量： Quantity是复制的数量
position是复制的内容出现在目标工作簿的位置，
程序：
Sheets(“template”).Select
Range(“A6:L10”).Select
Selection.Copy
首先选中源工作簿（“template”），而后选中此工作簿中从A6到L10单元格的内容，而后复制被选中的内容到内存中。
在向目标工作簿复制前，需要定义复制到目标工作簿的位置。
此处第一个复制内容所在目标工作簿的位置为A48. 而后每次向下偏移6个单元格进行填充。
偏移量到绝对地址的计算由position = 48 + (loop_i - 1) * 6进行。
程序部分：
Sheets(“Project Informaiton”).Select
Range(“A” & position).Select
ActiveSheet.Paste
完成选中目标工作簿"Project Informaiton"， 使用宏替换符号&完成真正绝对地址的组装，而后选中目标填充区域。完成从内存向目标区域的填充。
为了避免误执行宏命令导致错误覆盖已经有数据的区域。在循环开始时需要对目标填充区域进行是否为空的检查。这个检查由 IsEmpty(Range(“A48”)) 进行判断。如果为空进行填充，否则提示目标区域有数据不进行填充。