2017-07-26 85 views
0

我想將相同的東西複製到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 

回答

0

可以粘貼一行到複式行提供的相同的列數被保留(這就是爲什麼我下面粘貼到列「B:H」,而不是「B:G」):

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

無需選擇,複製和粘貼:您可以直接更改單元格的值。

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

+0

這些是兩個不同的excel文件。我試圖複製「Schedule.xls」QF.IPP選項卡中的值,並將它們粘貼到「ID_DOG.xls」 – user7062450

+0

已添加明確的工作簿調用。 – ThatOneGuy