Excel VBAを利用した店舗別の顧客評価集計方法

この記事では、Excel VBAを利用して店舗別の顧客評価を集計する方法について詳しく説明します。初心者でも理解しやすいように具体的なコード例とその解説、さらに3つの応用例を含めています。

基本的な顧客評価の集計

Excelには様々な関数や機能が搭載されていますが、特定の条件下での集計や処理を自動化するためには、VBAを利用すると便利です。

以下のコードは、店舗別の顧客評価を集計する基本的な例です。

Sub StorewiseCustomerReviews()
    Dim LastRow As Long
    Dim i As Long
    Dim StoreName As String
    Dim TotalReviews As Long

    '最後の行を取得
    LastRow = ThisWorkbook.Sheets("Sheet1").Cells(ThisWorkbook.Sheets("Sheet1").Rows.Count, "A").End(xlUp).Row

    For i = 2 To LastRow
        StoreName = ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value
        '店舗名が同じ場合、評価を合計
        TotalReviews = TotalReviews + ThisWorkbook.Sheets("Sheet1").Cells(i, 2).Value
    Next i

    '結果を出力
    ThisWorkbook.Sheets("Sheet1").Cells(LastRow + 2, 1).Value = "合計"
    ThisWorkbook.Sheets("Sheet1").Cells(LastRow + 2, 2).Value = TotalReviews
End Sub

上記のコードでは、Sheet1のA列に店舗名、B列に顧客の評価（数値）が入っていると想定しています。コードが実行されると、各店舗の顧客評価が合計され、結果が下部に表示されます。

応用例

1. 平均評価の集計

平均評価を求める場合、評価の合計を評価回数で割ります。

Sub AverageReview()
    Dim LastRow As Long
    Dim i As Long
    Dim StoreName As String
    Dim TotalReviews As Double
    Dim CountReviews As Long

    '最後の行を取得
    LastRow = ThisWorkbook.Sheets("Sheet1").Cells(ThisWorkbook.Sheets("Sheet1").Rows.Count, "A").End(xlUp).Row

    For i = 2 To LastRow
        StoreName = ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value
        '店舗名が同じ場合、評価を合計
        TotalReviews = TotalReviews + ThisWorkbook.Sheets("Sheet1").Cells(i, 2).Value
        CountReviews = CountReviews + 1
    Next i

    '結果を出力
    ThisWorkbook.Sheets("Sheet1").Cells(LastRow + 2, 1).Value = "平均評価"
    ThisWorkbook.Sheets("Sheet1").Cells(LastRow + 2, 2).Value = TotalReviews / CountReviews
End Sub

2. 最高評価の店舗を特定

各店舗の中で、最高の顧客評価を受けた店舗を特定します。

Sub BestReviewStore()
    Dim LastRow As Long
    Dim i As Long
    Dim BestReview As Long
    Dim BestStore As String

    '最後の行を取得
    LastRow = ThisWorkbook.Sheets("Sheet1").Cells(ThisWorkbook.Sheets("Sheet1").Rows.Count, "A").End(xlUp).Row

    For i = 2 To LastRow
        If ThisWorkbook.Sheets("Sheet1").Cells(i, 2).Value > BestReview Then
            BestReview = ThisWorkbook.Sheets("Sheet1").Cells(i, 2).Value
            BestStore = ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value
        End If
    Next i

    '結果を出力
    ThisWorkbook.Sheets("Sheet1").Cells(LastRow + 2, 1).Value = "最高評価の店舗"
    ThisWorkbook.Sheets("Sheet1").Cells(LastRow + 2, 2).Value = BestStore
End Sub

3. 店舗別の評価頻度を集計

どの店舗がどれだけ評価されているのか、評価の頻度を集計します。

Sub ReviewFrequency()
    Dim LastRow As Long
    Dim i As Long, j As Long
    Dim StoreName As String
    Dim Frequency As Long

    '最後の行を取得
    LastRow = ThisWorkbook.Sheets("Sheet1").Cells(ThisWorkbook.Sheets("Sheet1").Rows.Count, "A").End(xlUp).Row

    For i = 2 To LastRow
        StoreName = ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value
        For j = 2 To LastRow
            If ThisWorkbook.Sheets("Sheet1").Cells(j, 1).Value = StoreName Then
                Frequency = Frequency + 1
            End If
        Next j
        ThisWorkbook.Sheets("Sheet1").Cells(i, 3).Value = Frequency
        Frequency = 0
    Next i
End Sub

まとめ

Excel VBAは、店舗別の顧客評価の集計など、複

雑なタスクを効率的に自動化するための強力なツールです。今回紹介した基本的な集計方法や応用例を参考に、自分の業務に合わせてカスタマイズしてみてください。