Excelマクロで複数列の出荷データから箱数を自動計算して配列する方法

Excelで製品ごとの出荷数量から箱数を計算し、複数列のデータをまとめて配列するには、VBAマクロを利用するのが効率的です。特に、色で塗られたセルを1箱としてカウントする場合、条件付きの処理を組み合わせることで自動化できます。

前提条件の整理
マクロによる解決方法
フォーマット変更の検討
まとめ

前提条件の整理

今回のケースでは、以下の条件があります。

製品はA～Gまであり、出荷数量はD～J列に記載
黄色や青色など同じ色で塗られたセルは1箱としてカウント
最終的にM～O列のように配列して出力したい

マクロによる解決方法

1. VBAエディタを開き、新しいモジュールを作成

2. 色によるカウント処理を組み込む

Function CountByColor(rng As Range, clr As Long) As Long
    Dim cell As Range
    Dim cnt As Long
    cnt = 0
    For Each cell In rng
        If cell.Interior.Color = clr Then cnt = cnt + 1
    Next cell
    CountByColor = cnt
End Function

3. 複数列の箱数をまとめてM～O列に出力

Sub CalculateBoxes()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row
    Dim i As Long
    For i = 2 To lastRow
        ws.Cells(i, "M").Value = CountByColor(ws.Range("D" & i & ":J" & i), RGB(255, 255, 0)) '黄色の箱数
        ws.Cells(i, "N").Value = CountByColor(ws.Range("D" & i & ":J" & i), RGB(0, 0, 255)) '青色の箱数
        ws.Cells(i, "O").Value = ws.Cells(i, "M").Value + ws.Cells(i, "N").Value '合計箱数
    Next i
End Sub