macros将数据插入到另一个表中的下一个空白行或列？

我在本工作簿中有5张纸，GP Data是本工作簿中的input纸，另外4张要求我从GP数据表的特定单元复制粘贴数据，并更新到其余页的下一个空白行中。

SheetX，Y，Z中的列A是每次将数据复制到Raw Sheet中的第6行时从前一个date拖拽的date。

Sub Prism2ndStep() ' ' Prism2ndStep Macro ' ' Range("P12:R14").Select Selection.Copy Sheets("RAW").Select Range("DC7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("CZ6:DB6").Select Application.CutCopyMode = False Selection.AutoFill Destination:=Range("CZ6:DE6"), Type:=xlFillDefault Range("CZ6:DE6").Select Sheets("GP Data").Select Range("S12:S14").Select Selection.Copy Sheets("DX").Select Range("B39").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True Sheets("GP Data").Select Range("T12:T14").Select Application.CutCopyMode = False Selection.Copy Sheets("DY").Select Range("B39").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True Sheets("GP Data").Select Range("U12:U14").Select Application.CutCopyMode = False Selection.Copy Sheets("DZ").Select Range("B39").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True Range("A38").Select Application.CutCopyMode = False Selection.AutoFill Destination:=Range("A38:A39"), Type:=xlFillDefault Range("A38:A39").Select Sheets("DY").Select Range("A38").Select Selection.AutoFill Destination:=Range("A38:A39"), Type:=xlFillDefault Range("A38:A39").Select Sheets("DX").Select Range("A38").Select Selection.AutoFill Destination:=Range("A38:A39"), Type:=xlFillDefault Range("A38:A39").Select Sheets("GP Data").Select End Sub 

Answer 1

不要使用：。select.Select, .Copy, .Paste方法

大多数时候，你可以使用这种模式（只有1行）：

 Sheets("DZ").Range("A1").Value = Sheets("GP Data").Range("C1").Value 

（1格）

 Sheets("DZ").Range("B1:B4").Value = Sheets("GP Data").Range("A1:A4").Value 

（多个单元格 – 确保源文件和圣经文件的大小相同）