宏将数据插入另一个工作表中的下一个空白行或列?

时间:2016-05-18 05:53:47

标签: excel vba excel-vba

我在此工作簿中有5张,GP Data是此工作簿中的输入表, 另外4张纸需要我从GP数据表的特定单元格复制粘贴数据并更新到剩余纸张的下一个空白行。

SheetX,Y,Z中的列A是每次将数据复制到原始工作表中的第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

1 个答案:

答案 0 :(得分:2)

请勿使用:.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

(多个单元格 - 确保源和内容的大小相同)