Question

我想将相同的东西复制到Excel中的不同行。如何简化下面的代码，以便我可以选择多个范围？

Windows("Schedule.xlsx").Activate
Sheets("QF.IPP").Select
Range("E10:K10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ID_DOG.xlsm").Activate
Range("B47:G47").Select
ActiveSheet.Paste

Windows("Schedule.xlsx").Activate
Sheets("QF.IPP").Select
Range("E10:K10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ID_DOG.xlsm").Activate
Range("B48:G48").Select
ActiveSheet.Paste

Answer 1

无需选择，复制和粘贴：您可以直接更改单元格的值。

Workbooks("ID_DOG").Sheets("QF.IPP").Range("B47:G48").value2 = Workbooks("Schedule")Sheets("QF.IPP").Range("E10:K10").Value2

Answer 2

你可以将行粘贴到多行中，只要保留相同数量的列（这就是为什么我在下面粘贴到列“B：H”而不是“B：G”）：

Workbooks("Schedule.xlsx").Sheets("QF.IPP").Range("E10:K10").Copy
Workbooks("ID_DOG.xlsm").ActiveSheet.Range("B47:H48").PasteSpecial

如何从多行中选择范围

2 个答案: