B列とC列の両方に存在する単語を抽出したい

質問

エクセルで、添付画像のように、「A列に頻度、B列に単語」が書かれています。

B列とC列の両方にある単語を抽出して、「E列に単語を、D列にその単語の頻度（A列の情報）」を書き出したいと思っています。

良い方法をご存知のかた、教えていただけますでしょうか？m_ _m

回答No.4

WasaBeam

VBAを使った方法です(Excel2010で検証)
Ｂ列の単語ごとにＣ列で検索を行い、一致するものがあれば
Ａ列の情報をＤ列に、Ｂ列の情報をＥ列にセットしています。

Option Explicit
Sub SampleProcedure()
Dim oRows1 As Range
Dim oRows2 As Range
Dim bFind As Boolean
Dim iRow As Integer

iRow = 1
For Each oRows1 In ActiveSheet.Columns(2).Rows
If oRows1.Text = "" Then Exit For

bFind = False
For Each oRows2 In ActiveSheet.Columns(3).Rows
If oRows1.Text = oRows2.Text Then
bFind = True
Exit For
ElseIf oRows2.Text = "" Then
Exit For
End If
Next

If bFind Then
With ActiveSheet.Rows(iRow)
.Columns(4).Value = oRows1.Columns(0).Text
.Columns(5).Value = oRows1.Text
End With
iRow = iRow + 1
End If
Next
End Sub

お礼

ご回答いただき、ありがとうございます。

せっかくご回答いただいたのに申し訳ありませんが、
つい先ほど、ベストアンサーを選んでしまいました。

同じことを実現するために、いくつもの方法があることが分かり、勉強になりました。どうもありがとうございました。