• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:VBAコピー範囲について教えてください。)

VBAコピー範囲について教えてください

このQ&Aのポイント
  • VBAのコピーペーストについて質問です。コピー範囲のJ10の部分を、J列のデータが入力されている最終行としたいです。どのようなプログラムを使えばいいですか?
  • VBAコピー範囲のJ10の部分を、J列のデータが入力されている最終行と合わせる方法を教えてください。
  • VBAのコピーペーストで、コピー範囲のJ10の部分を、J列のデータが入力されている最終行と一致させる方法を教えてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • tom04
  • ベストアンサー率49% (2537/5117)
回答No.1

こんばんは! せっかくコードをお考えのようですが、 一例です。 コピーがマクロ名になっていますので、 コピー&ペーストにしてみました。 Sub Sample1() Dim i As Long i = Cells(Rows.Count, "J").End(xlUp).Row Range(Cells(2, "B"), Cells(i, "J")).Copy Worksheets("2").Cells(Rows.Count, 1).End(xlUp).Offset(1) End Sub こんな感じでしょうか?m(_ _)m

natase211
質問者

お礼

早速のご教示ありがとうございます。 バッチリです。また、勉強になりました。 早速活用させていただきます。 本当にありがとうございました。

すると、全ての回答が全文表示されます。

その他の回答 (1)

回答No.2

Option Explicit Sub コピー() Dim rng As Range Set rng = Worksheets("2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) 'With Range("b2:J10") With Range("b2:J" & Cells(Rows.Count, "J").End(xlUp).Row) rng.Resize(.Rows.Count, .Columns.Count).Value = .Value End With End Sub

natase211
質問者

お礼

早速のご教示ありがとうございました。 いろいろな方法があるのですね、勉強になりました。 ありがとうございました。

すると、全ての回答が全文表示されます。

専門家に質問してみよう