Question

我有以下脚本，并试图找出如何将复制的数据粘贴到工作表TEST中的单元格AA1，但在粘贴所选数据之前，我需要清除列AA中的所有数据：工作表中的AK测试。该脚本复制数据确定但我不能让Selection.PasteSpecial使用“偏移”，我无法预先知道如何清除AA：AK的内容。任何帮助将不胜感激。

Sub CopyDATA（）

' Set Auto Filter
Selection.AutoFilter
Sheets("SBC_Month").Select
Range("$AA$1:$AK$5000").AutoFilter Field:=9, Criteria1:="Rep Name"   ' Filters by Rep Name

' copy filtered data
Range("AA1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

' Paste to sheet Test
Sheets("TEST").Select
Selection.PasteSpecial , Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub

Answer 1

你应该可以使用

Sub CopyDATA()

    Sheets("TEST").Range("AA:AK").ClearContents

    Range("B1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

    ' Paste to sheet Test
    Sheets("TEST").Range("AA1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub

VBA脚本从特定单元格区域复制数据并粘贴到新工作表中的特定单元格

1 个答案: