エクセルでの単語集計について教えてください

添付画像のようにエクセルシートに複数列、複数行に入力されている、
さまざまな単語の出現数を集計したいのですが、
良い方法はありますでしょうか。

No.1 ベストアンサー 回答者： tom04 回答日時： 2016/12/08 11:49

こんにちは！

VBAになりますが、一例です。
↓の画像のように元データはSheet1にあり、Sheet2に表示するとします。

ALT＋F11キー　→　メニュー　→　挿入　→　標準モジュール　→　VBE画面のカーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　Excel画面に戻り（VBE画面を閉じて）マクロを実行してみてください。
（ALT＋F8キー　→　マクロ　→　マクロ実行です）

Sub Sample1() 'この行から//
Dim i As Long, j As Long, c As Range, lastRow As Long
Dim wS As Worksheet
Set wS = Worksheets("Sheet1")
With Worksheets("Sheet2")
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
If lastRow > 1 Then
Range(.Cells(2, "A"), .Cells(lastRow, "B")).ClearContents
End If
For j = 1 To wS.Cells(1, Columns.Count).End(xlToLeft).Column
For i = 2 To wS.UsedRange.Rows.Count
If wS.Cells(i, j) <> "" Then
Set c = .Range("A:A").Find(what:=wS.Cells(i, j), LookIn:=xlValues, lookat:=xlWhole)
If c Is Nothing Then
With .Cells(Rows.Count, "A").End(xlUp).Offset(1)
.Value = wS.Cells(i, j)
.Offset(, 1) = 1
End With
Else
With c.Offset(, 1)
.Value = .Value + 1
End With
End If
End If
Next i
Next j
End With
End Sub 'この行まで//

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

いただいた方法で集計ができました。
ありがとうございます。

お礼日時：2016/12/08 14:10