Excel VBA脚本，用于从特定单元格范围复制数据并粘贴到新工作表中的特定单元格

我有以下脚本，正在尝试解决如何在sheet TEST中将复制的数据粘贴到单元格AA1，但在粘贴选定数据之前，我需要清除sheet TEST中列AA:AK中的所有数据。脚本复制数据正常，但我无法获取Selection.PasteSpecial以使用“offset”，并且我无法确定如何提前清除AA:AK的内容。 任何帮助都将不胜感激

子副本数据（）

---

End Sub

您应该能够使用

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

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