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

Sub createtable()

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

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

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”)) 进行判断。如果为空进行填充，否则提示目标区域有数据不进行填充。