【初心者向けエクセルVBA】セル範囲を一気にまとめてコピーする方法

photo credit: andrey.pehota via photopin (license)

みなさん、こんにちは！
タカハシ(@ntakahashi0505)です。

エクセルVBAで請求データ一覧から請求書を自動で作成するシリーズ、まだまだ続きます。

【初心者向けエクセルVBA】文字列の連結＆Format関数での書式変更

エクセルVBAで文字列を連結する、文字列の書式を変更するなどの「文字列」に関するいくつかのテクニックを紹介しつつ、データ一覧から請求書を自動で作成するというシリーズ連載の序盤の完成を目指します。

前回の記事までで、請求データ一覧から請求書ひな形にデータをコピーするという処理は、完成しました。

ただ実は、セルの範囲をコピーするだけならFor~Next文を使わずに、もっと簡単で実行時間を短くできる記述の仕方があります。

今回は、エクセルVBAでセル範囲を一気にまとめてコピーする方法についてお伝えします。

なお、この記事は以下のYouTube動画と連動していますので、合わせてご覧いただければと思います。

では、行ってみましょう！

前回のおさらいと実行時間という課題
1. 実行時間は転記の回数に依存する
Copyメソッドでセル範囲をコピーする
1. 請求データをまとめて転記する
Copyメソッドはすべて貼り付け
まとめ
連載目次：データ一覧から請求書を自動で作る

前回のおさらいと実行時間という課題

前回までで、請求データ（wsData）というシートから、請求書ひな形（wsTemplate）の該当のセル範囲に、請求データを転記するというプログラムを作りました。

請求データのイメージはこちら。

請求書ひな形のイメージをこちらです。

それで、作成したソースコードは以下の通りです。

Sub 請求書作成()

wsTemplate.Rows("21:50").Hidden = False '隠れているかもしれない行を再表示

Dim rowsData As Long '行数カウント用の変数
rowsData = wsData.Cells(Rows.Count, 1).End(xlUp).Row '最後の行数を取得

Dim i As Long, j As Long, k As Long
k = 21
For i = 2 To rowsData
    For j = 1 To 3
        wsTemplate.Cells(k, j).Value = wsData.Cells(i, j).Value
    Next j
    k = k + 1
Next i

wsTemplate.Rows(21 + rowsData - 1 & ":50").Hidden = True 'データがない行を隠す
wsTemplate.Range("A18").Value = "ご請求金額：" & Format(wsTemplate.Range("D54").Value, "#,##0") & " 円"

End Sub

実行時間は転記の回数に依存する

さて、コードの8行目から15行目なのですが、入れ子になっているFor~Next文でデータの転記を行っています。

前回の例を見る限り、行数は6、列数は3ですから、合わせて計18回の転記が行われてるということになります。

ただ、実行時間の視点で考えてみると、セルの転記の処理時間は、セルの数ではなく転記の回数に依存するという事実があります。

なので、この18回という転記の回数を減らすことができると、実行時間という点では望ましいわけです。

Copyメソッドでセル範囲をコピーする

そこで、覚えていただきたいメソッドがCopyメソッドです。

Copyメソッドは、セル範囲をコピーするメソッドで、以下のように記述します。

Rangeオブジェクト.Copy コピー先のセル範囲

これで、対象となるRangeオブジェクト、つまりセル範囲をコピー先のセル範囲にコピーをすることができます。

コピー先のセル範囲は、単一セルを指定すれば、そのセルを左上にしたセル範囲への貼り付けとなります。

請求データをまとめて転記する

今回の場合、コピー元のセル範囲のアドレスは請求データの「A2:C7」、コピー先のセル範囲の左上のセルのアドレスは「A21」になりますから、以下のようなコードを使えば良いわけです。

wsData.Range("A2:C7").Copy wsTemplate.Range("A21")

8行あったコードがたったの1行です…！

実際にこれで実行してみると、以下のように転記されます。

無事に値としては正しい値がコピーされますが、書式までコピーされてしまい、想定のフォントではなくなってしまいました。

Copyメソッドはすべて貼り付け

これは、Copyメソッドを使った場合の貼り付け形式が「すべて貼り付け」であるということによります。

つまり、値だけではなく書式も含めた全てがコピーされてしまうのです。

この問題の、最も単純な解決法の一つとしては、元のデータのフォント種類とサイズを貼り付け先のそれと揃えるという方法があります。

以下のように、「Meiryo UI」の「12ポイント」に変更してみました。

これで先程のプログラムを実行すると、以下のように想定したフォント種類とそのサイズで貼り付けをすることができます。

まとめ

以上、エクセルVBAでCopyメソッドを使ってセル範囲をまとめて一気にコピー＆ペーストする方法についてお伝えしました。

ソースコードはこちらです。

Sub 請求書作成()

wsTemplate.Rows("21:50").Hidden = False '隠れているかもしれない行を再表示

Dim rowsData As Long '行数カウント用の変数
rowsData = wsData.Cells(Rows.Count, 1).End(xlUp).Row '最後の行数を取得

wsData.Range("A2:C7").Copy wsTemplate.Range("A21")

wsTemplate.Rows(21 + rowsData - 1 & ":50").Hidden = True 'データがない行を隠す
wsTemplate.Range("A18").Value = "ご請求金額：" & Format(wsTemplate.Range("D54").Value, "#,##0") & " 円"

End Sub

今回の例ほどのデータ量であれば大した差は出ませんが、データの量が多くなるとその実行時間の差は如実に出てきます。

セル範囲はまとめてペーストできるときは、まとめてするというのが定石です。

さて、次回はセル範囲に変化があったとしても、上手にほしい範囲を取得する方法がありますので、それについてお伝えしたいと思います。