可変範囲内の単一行の会計処理？

Question

長時間リーダー初回ポスター。私の苦境を説明しようとすると、私に抱きしめてください。私は最高の説明者ではありません！

私はさまざまなフォーラムのさまざまなコードを使用して、仕事を簡単にするためのマクロをまとめましたが、問題はありました。私は別の場所にコピーして貼り付ける必要があり、ダイナミックレンジを自動入力し、選択するために、次のコードビットを使用しています：

Dim lastRow As Long 
lastRow = Range("A" & Rows.Count).End(xlUp).Row 

Range("AP2").AutoFill Destination:=Range("AP2:AP" & lastRow) 
Range("AQ2").AutoFill Destination:=Range("AQ2:AQ" & lastRow) 
Range("AR2").AutoFill Destination:=Range("AR2:AR" & lastRow) 
Range("AS2").AutoFill Destination:=Range("AS2:AS" & lastRow) 
Range("AT2").AutoFill Destination:=Range("AT2:AT" & lastRow) 
Range("AU2").AutoFill Destination:=Range("AU2:AU" & lastRow) 

Range("AP2").Select 
Range(Selection, Selection.End(xlToRight)).Select 
Range(Selection, Selection.End(xlDown)).Select 

私が直面している問題がある、私は信じて、最後の行に（私は誰かと確信しているが、 3〜8行目を扱う簡単な方法があると私に伝えます）。この変数範囲が単一の行を返す場合、Selection.End(xlDown)は行2から行末までのすべての行を取得します。つまり、宛先に貼り付けるには大きすぎます。どのように私はこれを単一の行を説明するために修正することができますか？

FYI Selection.End(xlToRight)は、常に役立ちますが、常に同じ数の列です。

ありがとうございます！

Answer 1

あなただけの範囲AP選択する場合：秒から最後の行までAU、ちょうど：

ところで

Range(Range("AP2"), Range("AU" & Cells.Rows.Count).End(xlUp)).Select 

を。私はあなたがしたい次のことはSelection.Copyだと思う。しないでください.Copyで.Selectを置き換えてください。

Range(Range("AP2"), Range("AU" & Cells.Rows.Count).End(xlUp)).Copy