特定のセル範囲のデータをコピーして新しいシートの特定のセルに貼り付けるVBAスクリプト

Question

次のスクリプトがあり、コピーしたデータをTESTシートのセルAA1に貼り付ける方法を試していますが、選択したデータは、シートTESTの列AA：AKにあるすべてのデータをクリアする必要があります。スクリプトはデータをコピーしてもOKですが、Selection.PasteSpecialを "offset"で動作させることはできません。事前にAA：AKの内容をクリアする方法はありません。 ご協力いただければ幸いです。

サブの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