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

我在本工作簿中有5張紙，GP Data是本工作簿中的輸入紙，，其他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

來源

2016-05-18 Tyler

不要使用：.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

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

來源

2016-05-18 06:07:54 JackIsJack

上面的代碼是做什麼的，我應該把它放在我的代碼中？ – Tyler

第一行表示：表DZ中的單元格A1獲取表單GP數據中單元格C1的值 – JackIsJack

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

回答

相關問題