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

質問

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

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

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

回答No.2

tom04 · ベストアンサー

こんにちは！
余計なお世話かもしれませんが・・・
画像を拝見する限りでは単語すべてを検索といった感じなのですかね？
すなわちZまであるとかなりのデータ量になると思います。

そこでVBAでの一例です。
画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt+F8キー　→　マクロ　→　マクロ実行です）

Sub test() 'この行から
Dim i, k As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Columns(3), Cells(i, 2)) Then
k = k + 1
With Cells(k, 4)
.Value = Cells(i, 1)
.Offset(, 1) = Cells(i, 2)
End With
End If
Next i
End Sub 'この行まで

お望みの方法でなかったらごめんなさいね。m(_ _)m

お礼

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

VBA、実行してみたところ、D列とE列に正しく表示されました！
お察し頂いたように、A列とB列には大量のデータが入っています。
とても助かりました。どうもありがとうございました。

回答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

お礼

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

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

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

回答No.3

noname#204879

添付図参照

お礼

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

教えていただいたフィルタの方法でやってみたのですが、なぜか途中からD列とE列に、C列にはないデータが混じるようになってしまいました。
何か私のやり方が間違っているんだと思います。

いずれにしましても、ありがとうございました。

回答No.1

KURUMITO

作業列を作って対応するのがよいでしょう。
Ａ列からＥ列までには1行目に項目名が有り、2行目から下方にデータが有るとします。
Ｆ2セルには次の式を入力して下方にドラッグコピーします。

=IF(C2="","",IF(COUNTIF(B:B,C2)>0,MAX(F$1:F1)+1,""))

Ｄ2セルには次の式を入力してＥ2セルまでドラッグコピーしたのちに下方にもドラッグコピーします。

=IF(ROW(A1)>MAX($F:$F),"",INDEX($A:$B,MATCH(ROW(A1),$F:$F,0),COLUMN(A1)))

補足

早速のご回答、ありがとうございます。

上記の通りやってみたのですが、D列とE列には、A列とB列のデータがコピーされた結果となります。。。

C列にある単語だけを抜き出したいのですが、何か私のやり方が間違っているのでしょうか。