VBAで効率的にセル範囲を転記する方法：コードの簡素化と最適化

VBAを使用してExcelのセル範囲を転記する際、同じようなコードが繰り返し書かれていると、コードが冗長で長くなりがちです。本記事では、特定のセル範囲を複数のシート間で転記するVBAコードを簡素化する方法を紹介します。

冗長なVBAコードの問題
コードの簡素化方法
コードのメリット
まとめ

冗長なVBAコードの問題

以下のコードは、複数のセルを個別に変数に格納し、さらに別のシートに転記する例です。コードが長くなり、読みづらくなっています。

'商品名①
product1 = Worksheets("日付").Range("D7")
volume1 = Worksheets("日付").Range("D8")
price1 = Worksheets("日付").Range("D9")

'商品名②
product2 = Worksheets("日付").Range("D10")
volume2 = Worksheets("日付").Range("D11")
price2 = Worksheets("日付").Range("D12")

'商品名③
product3 = Worksheets("日付").Range("D13")
volume3 = Worksheets("日付").Range("D14")
price3 = Worksheets("日付").Range("D15")

'転記
Worksheets("日付1").Range("B19") = product1
Worksheets("日付1").Range("B20") = product2
Worksheets("日付1").Range("B21") = product3

Worksheets("日付1").Range("L19") = price1
Worksheets("日付1").Range("L20") = price2
Worksheets("日付1").Range("L21") = price3

Worksheets("日付1").Range("Q19") = volume1
Worksheets("日付1").Range("Q20") = volume2
Worksheets("日付1").Range("Q21") = volume3

このようなコードは冗長であり、維持管理が難しくなる可能性があります。では、どうやってこのコードを簡潔にすることができるのでしょうか？

コードの簡素化方法

上記のコードでは、同じような処理が繰り返されています。これを簡素化するために、配列やループを使って処理を一度に行えるようにしましょう。

以下は、配列とループを使って冗長なコードを簡素化した例です。

Dim products(3) As String
Dim volumes(3) As Double
Dim prices(3) As Double

'商品情報を配列に格納
products(1) = Worksheets("日付").Range("D7")
volumes(1) = Worksheets("日付").Range("D8")
prices(1) = Worksheets("日付").Range("D9")

products(2) = Worksheets("日付").Range("D10")
volumes(2) = Worksheets("日付").Range("D11")
prices(2) = Worksheets("日付").Range("D12")

products(3) = Worksheets("日付").Range("D13")
volumes(3) = Worksheets("日付").Range("D14")
prices(3) = Worksheets("日付").Range("D15")

'転記処理をループでまとめる
Dim i As Integer
For i = 1 To 3
    Worksheets("日付1").Range("B" & 18 + i) = products(i)
    Worksheets("日付1").Range("L" & 18 + i) = prices(i)
    Worksheets("日付1").Range("Q" & 18 + i) = volumes(i)
Next i

この方法では、商品名、数量、価格を配列に格納し、ループを使って転記作業を一度に行っています。これにより、コードが簡潔になり、将来的に商品数が増えた場合でも簡単に対応できるようになります。