Excel VBAを活用した顧客のフィードバック集計方法

この記事では、Excel VBAを利用して顧客のフィードバックを集計する方法について詳しくご紹介します。具体的なコードとその詳細な解説、さらには応用例も交えて、VBAの力をフルに活用したデータ処理の手法を学ぶことができます。

基本的なフィードバック集計のコード

まず、基本的なフィードバック集計のVBAコードを以下に示します。

Sub FeedbackAggregation()
    Dim lastRow As Long
    Dim i As Long
    Dim PositiveFeedback As Long
    Dim NegativeFeedback As Long
    
    ' 最終行を取得
    lastRow = ThisWorkbook.Worksheets("Sheet1").Cells(ThisWorkbook.Worksheets("Sheet1").Rows.Count, "A").End(xlUp).Row
    
    ' ポジティブ・ネガティブフィードバックの初期化
    PositiveFeedback = 0
    NegativeFeedback = 0
    
    ' フィードバックの集計
    For i = 2 To lastRow
        If ThisWorkbook.Worksheets("Sheet1").Cells(i, 2).Value = "Positive" Then
            PositiveFeedback = PositiveFeedback + 1
        ElseIf ThisWorkbook.Worksheets("Sheet1").Cells(i, 2).Value = "Negative" Then
            NegativeFeedback = NegativeFeedback + 1
        End If
    Next i
    
    ' 集計結果を出力
    ThisWorkbook.Worksheets("Sheet1").Cells(1, 4).Value = "Positive Feedback"
    ThisWorkbook.Worksheets("Sheet1").Cells(1, 5).Value = "Negative Feedback"
    ThisWorkbook.Worksheets("Sheet1").Cells(2, 4).Value = PositiveFeedback
    ThisWorkbook.Worksheets("Sheet1").Cells(2, 5).Value = NegativeFeedback

End Sub

コードの詳細解説

このコードは、Sheet1のA列に顧客名、B列にフィードバック（PositiveまたはNegative）という形でデータが入力されていることを前提としています。以下は各部分の詳細な解説です。

1. `Dim` で変数を宣言しています。`lastRow` はデータの最終行を取得するため、`PositiveFeedback` と `NegativeFeedback` はそれぞれのフィードバック数をカウントするために使用します。
2. `ThisWorkbook.Worksheets(“Sheet1”).Cells(ThisWorkbook.Worksheets(“Sheet1”).Rows.Count, “A”).End(xlUp).Row` で最終行を取得しています。
3. Forループを使用して、B列の各セルを調べ、フィードバックの種類に応じてカウントを増やしています。
4. 最後に、集計結果をD1とE1セルにヘッダーを出力し、D2とE2セルに集計結果を出力します。

応用例1：中立のフィードバックも集計

顧客からのフィードバックには、ポジティブやネガティブだけでなく、「中立」も存在するかもしれません。その場合の集計方法を以下に示します。

' 中立フィードバックの変数を追加
Dim NeutralFeedback As Long

' 中立フィードバックの初期化
NeutralFeedback = 0

' フィードバックの集計の部分に以下を追加
ElseIf ThisWorkbook.Worksheets("Sheet1").Cells(i, 2).Value = "Neutral" Then
    NeutralFeedback = NeutralFeedback + 1
End If

' 集計結果を出力の部分に以下を追加
ThisWorkbook.Worksheets("Sheet1").Cells(1, 6).Value = "Neutral Feedback"
ThisWorkbook.Worksheets("Sheet1").Cells(2, 6).Value = NeutralFeedback

応用例2：フィードバックのコメントも一緒に集計

B列にフィードバックの種類、C列に具体的なコメントが入っている場合、そのコメントも一緒に集計する方法を示します。

Dim Comment As String

' コメントの初期化
Comment = ""

' フィードバックの集計の部分に以下を追加
If ThisWorkbook.Worksheets("Sheet1").Cells(i, 2).Value = "Negative" Then
    Comment = Comment & ThisWorkbook.Worksheets("Sheet1").Cells(i, 3).Value & vbNewLine
End If

' 集計結果を出力の部分に以下を追加
ThisWorkbook.Worksheets("Sheet1").Cells(3, 5).Value = Comment

応用例3：フィードバックの種類をドロップダウンリストで選択

Excelのデータ検証機能を使用して、フィードバックの種類をドロップダウンリストから選択する方法を示します。

With ThisWorkbook.Worksheets("Sheet1").Range("B2:B1000").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="Positive, Negative, Neutral"
    .ShowInput = True
    .ShowError = True
End With

まとめ

Excel VBAは、データ集計の自動化に非常

に有効です。特に、顧客のフィードバックのような日常的に収集されるデータを効率的に集計するためには、VBAのスキルは欠かせません。この記事を参考に、VBAを活用して日々の業務をより効率的に進めることができれば幸いです。