この記事では、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は、店舗別の顧客評価の集計など、複
雑なタスクを効率的に自動化するための強力なツールです。今回紹介した基本的な集計方法や応用例を参考に、自分の業務に合わせてカスタマイズしてみてください。
コメント