A2:V2の範囲のデータとA3:VXXの範囲のデータを持つテーブルがあります。ここでXXは最後の行の番号です。最後の行から選択をコピー
最後の行の値を複製するマクロを作成しようとしていますが、列A:Pの場合にのみ作成します。したがって、AXX:PXXに値を複製します。最後の行のを見つけてコピーするのに問題はありませんが、その中には限られた範囲をコピーすることはできません。
以前私が使用したコードは含まれていないため、お詫び申し上げます。代わりに、行全体の
With Activesheet
.cells(.rows.count,1).end(xlup).entirerow.copy
End With
は、範囲を設定します。
Dim lastRow as long
With Activesheet
lastRow = .cells(.rows.count,1).end(xlup).Row
.Range(.Cells(lastrow,"A"),.Cells(lastrow,"P")).copy
End With
あなたが使用することができます。
With ActiveSheet
.Cells(.Rows.Count, 1).End(xlUp).EntireRow.Columns("A:P").Copy
End With
か、をActiveSheetは、単に、デフォルトのシートであるため、：
Cells(Rows.Count, 1).End(xlUp).EntireRow.Columns("A:P").Copy
コードを表示してください。 StackOverflowは無料のコード作成サービスではありません。 –
「最後の行全体をコピーするのに問題はありません」 - これを行う方法を示し、必要な範囲をコピーする方法を示すことができます。 – Wolfie
早めの謝罪について。私は現在行全体をコピーするためのコードを含んでいます。しかし、私が範囲を入力しても動作しません。私はラストローを定義する必要があると思う？ – MBrann