將數據插入另一張工作表的下一個空白行或列的宏？

Question

我在該工作簿中有5張紙，GP數據是該工作簿中的輸入紙，其他4張紙需要我從GP數據表的特定單元格復制粘貼數據，然后更新到其余工作表的下一個空白行中。

SheetX，Y，Z中的A列是每次我將數據復制到類似於Raw Sheet中的第6行時從前一個日期向下拖動的日期。

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, .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

（多個單元格-確保來源和聖經的大小相同）