VBAで自動化 VBA一覧 コピー＆ペースト セル・値の取得と貼り付け

【VBA】データのある範囲をコピーする方法｜最終行まで安全にコピーする実務コード

Excel VBAでコピー処理を作成するとき、固定範囲で指定してしまうと、

  • データが増えたときにコピー漏れする
  • 空白行まで貼り付けてしまう
  • 毎回コード修正が必要になる

といった問題が起きやすくなります。

特に実務では、売上データやCSV取込データのように、毎回行数が変わるケースが非常に多くあります。

そのため、VBAでは「データのある範囲」を自動取得してコピーする考え方が重要です。

この記事では、最終行を取得して安全にコピーする方法や、値だけコピーする実務向けテクニックまで解説します。

✅ VBAでデータのある範囲をコピーする基本

VBAでデータ範囲をコピーする場合は、まず「最終行」を取得します。

固定範囲で指定すると、データ量が変わったときに対応できないためです。

特に実務では、データ件数が毎回変わる前提で作ることが重要になります。

・最終行を取得してコピーする基本コード

Sub CopyDataRange()

    Dim sourceWorksheet As Worksheet
    Dim destinationWorksheet As Worksheet
    Dim lastDataRow As Long
    Dim copyRange As Range

    'シートを明確に指定する
    Set sourceWorksheet = ThisWorkbook.Worksheets("元データ")
    Set destinationWorksheet = ThisWorkbook.Worksheets("出力先")

    'A列を基準に最終行を取得する
    lastDataRow = sourceWorksheet.Cells(sourceWorksheet.Rows.Count, "A").End(xlUp).Row

    'コピー範囲を設定する
    Set copyRange = sourceWorksheet.Range("A1:D" & lastDataRow)

    'コピーする
    copyRange.Copy Destination:=destinationWorksheet.Range("A1")

End Sub

このコードでは、A列の最終行までを自動取得しています。

データ件数が増減しても対応できるため、実務で非常によく使われる書き方です。

・なぜシートを変数に入れるのか

実務では、Range や Cells を直接使うと、アクティブシート依存になりやすくなります。

そのため、以下のようにシートを変数へ入れておく方が安全です。

Set sourceWorksheet = ThisWorkbook.Worksheets("元データ")

これにより、

  • どのシートを操作するか明確になる
  • 他シート誤操作を防ぎやすい
  • 後から修正しやすい

というメリットがあります。

シートを変数へ入れてから処理する書き方は、単にコードを長くしているわけではありません。
実務では、

  • アクティブシート誤操作を防ぐ
  • シート変更に強くする
  • コードの可読性を上げる

といった大きなメリットがあります。

特に Set を使ったオブジェクト管理を理解すると、VBAコードの保守性や安全性は大きく向上します。

WorksheetやRangeを変数で安全に扱う考え方を詳しく知りたい方は、こちらの記事もぜひ参考にしてみてください。

→ 【VBA】Setのわかりやすい活用方法と活用場面｜オブジェクト変数を正しく扱う実務設計

✅ データがない場合を考慮した実務向けコード

実務では、データが0件のケースも考慮する必要があります。

そのままコピー処理を実行すると、空データを貼り付けてしまうことがあります。

そのため、コピー前にデータ有無を確認すると安全です。

・データ有無を確認してコピーするコード

Sub CopyDataRangeWithCheck()

    Dim sourceWorksheet As Worksheet
    Dim destinationWorksheet As Worksheet
    Dim lastDataRow As Long
    Dim copyRange As Range

    Set sourceWorksheet = ThisWorkbook.Worksheets("元データ")
    Set destinationWorksheet = ThisWorkbook.Worksheets("出力先")

    lastDataRow = sourceWorksheet.Cells(sourceWorksheet.Rows.Count, "A").End(xlUp).Row

    '見出ししかない場合は終了
    If lastDataRow < 2 Then
        MsgBox "コピー対象データがありません。", vbExclamation
        Exit Sub
    End If

    Set copyRange = sourceWorksheet.Range("A1:D" & lastDataRow)

    copyRange.Copy Destination:=destinationWorksheet.Range("A1")

    MsgBox "コピーが完了しました。", vbInformation

End Sub

・なぜ確認処理が重要なのか

実務では、

  • CSV取込失敗
  • データ未作成
  • 空ファイル

などが発生することがあります。

確認処理を入れておくことで、誤った空データ出力を防ぎやすくなります。

実務では、「とりあえず動く」よりも、“想定外データでも安全に停止できること”の方が重要になる場面が非常に多くあります。
特にデータ未存在や取込失敗を無視したまま処理を進めると、誤出力や上書き事故につながることもあります。

そのため、エラーを単純に無視するのではなく、「なぜ確認処理を入れるのか」を理解しておくことが重要です。

On Error Resume Next を安易に使う危険性や、安全なエラー制御の考え方を知りたい方は、こちらの記事もぜひ参考にしてみてください。

→ 【VBA】On Error Resume Nextでエラーを無視してエラーの制御｜危険な理由

✅ VBAで値だけをコピーする方法

通常の Copy は、書式や罫線も含めてコピーされます。

しかし実務では、「値だけを貼り付けたい」ケースも多くあります。

たとえば、

  • 集計結果だけ保存したい
  • 数式を値化したい
  • 貼り付け先の書式を維持したい

といったケースです。

・値だけコピーするコード

Sub CopyValuesOnly()

    Dim sourceWorksheet As Worksheet
    Dim destinationWorksheet As Worksheet
    Dim lastDataRow As Long
    Dim copyRange As Range
    Dim pasteRange As Range

    Set sourceWorksheet = ThisWorkbook.Worksheets("元データ")
    Set destinationWorksheet = ThisWorkbook.Worksheets("出力先")

    lastDataRow = sourceWorksheet.Cells(sourceWorksheet.Rows.Count, "A").End(xlUp).Row

    Set copyRange = sourceWorksheet.Range("A1:D" & lastDataRow)

    Set pasteRange = destinationWorksheet.Range("A1").Resize( _
        copyRange.Rows.Count, _
        copyRange.Columns.Count _
    )

    '値だけ貼り付ける
    pasteRange.Value = copyRange.Value

End Sub

・なぜValue代入が実務向きなのか

Value代入には、

  • 処理が速い
  • クリップボード不要
  • 書式崩れしにくい
  • 大量データでも安定しやすい

というメリットがあります。

特にデータ転記系では、CopyよりValue代入の方が使いやすい場面が多いです。

✅ VBAで最終列も含めてコピーする方法

実務では、列数が増減することもあります。

その場合、最終列も自動取得しておくと便利です。

・最終行と最終列を自動取得するコード

Sub CopyCurrentDataArea()

    Dim sourceWorksheet As Worksheet
    Dim destinationWorksheet As Worksheet
    Dim lastDataRow As Long
    Dim lastDataColumn As Long
    Dim copyRange As Range

    Set sourceWorksheet = ThisWorkbook.Worksheets("元データ")
    Set destinationWorksheet = ThisWorkbook.Worksheets("出力先")

    lastDataRow = sourceWorksheet.Cells(sourceWorksheet.Rows.Count, "A").End(xlUp).Row

    lastDataColumn = sourceWorksheet.Cells(1, sourceWorksheet.Columns.Count).End(xlToLeft).Column

    Set copyRange = sourceWorksheet.Range( _
        sourceWorksheet.Cells(1, 1), _
        sourceWorksheet.Cells(lastDataRow, lastDataColumn) _
    )

    copyRange.Copy Destination:=destinationWorksheet.Range("A1")

End Sub

・RangeとCellsを組み合わせる理由

実務では、列数や行数が変わることがあります。

そのため、

Range("A1:D10")

よりも、

Cells(行番号, 列番号)

を使った方が柔軟に対応できます。

Range("A1:D10") のような固定範囲指定はわかりやすい反面、データ件数が変わる実務では柔軟性に欠けることがあります。
そのため、最終行・最終列を使った可変範囲では、Range と Cells を組み合わせる書き方が非常に重要になります。

特に帳票出力やデータ転記では、この組み合わせを理解しているかどうかで、コードの保守性や再利用性が大きく変わります。

Range(Cells) を使った柔軟な範囲指定を詳しく理解したい方は、こちらの記事もぜひ参考にしてみてください。

→ 【VBA】Range(Cells)の組み合わせ｜柔軟な範囲指定で業務効率化を実現する方法

✅ VBAでデータ範囲をコピーするときの注意点

データ範囲コピーでは、以下の点に注意が必要です。

・基準列は必ず値が入る列を使う

A列に空白があると、最終行判定がずれることがあります。

そのため、

  • 商品コード
  • ID
  • 日付

など、必ず値が入る列を基準にすると安全です。

・貼り付け前の古いデータに注意する

前回データが残っていると、今回データと混ざることがあります。

必要に応じて、

destinationWorksheet.Cells.Clear

などで出力先をクリアしましょう。

・CopyとValue代入を使い分ける

用途によって使い分けが重要です。

  • 見た目ごとコピー → Copy
  • データだけ転記 → Value代入

この判断ができると、実務で非常に使いやすくなります。

✅ まとめ：VBAでデータ範囲をコピーするなら最終行取得が重要

VBAでデータのある範囲をコピーする場合は、固定範囲ではなく最終行を取得して範囲指定することが重要です。

今回の記事では、以下のポイントを解説しました。

  • 最終行を取得してコピー範囲を決める
  • シートを明確に指定して安全に処理する
  • データ有無チェックを入れる
  • 値だけコピーするならValue代入が便利
  • 最終列も取得すると保守性が上がる
  • CopyとValue代入を用途で使い分ける

データ範囲コピーは、VBA自動化で非常に使用頻度の高い処理です。

最終行取得と安全な範囲指定を理解しておくことで、データ量が変わっても安定して動く実務向けマクロを作成できるようになります。

    -VBAで自動化, VBA一覧, コピー＆ペースト, セル・値の取得と貼り付け