同じ種類の単語だけを抽出したい

質問

はじめまして。
いま、Wordに以下のようなデータがあります。
　　What_2 is_1 a_1 burrito_0? What_2 is_1 that_3?
（各英単語の後ろに、アンダーバーと数字がついています）
これを、同じ数字が付いている単語を抽出してエクセル等でリストを
作りたいのですが、何か良い方法はないでしょうか？
たとえば、以下のようなリストが理想です。
（英単語の後ろにある数値は頻度です）
----------
0
burrito 1

1
a 1
is 2

2
what 2
----------
どうぞ、よろしくお願い致します。

回答No.3

cistronezk · ベストアンサー

マクロを使わないなら、次のような手順でしょうか。

（１）
What_2 is_1 a_1 burrito_0? What_2 is_1 that_3?
という文を
What_2
is_1
a_1
burrito_0?
What_2
is_1
that_3?
のように１単語ずつ改行させる。

この方法としては、Wordにおいて「検索と置換」ダイアログを表示します。「検索する文字列」に「＜スペース＞」を指定、「置換後の文字列」に「^p」（改行記号）を指定して「すべて置換」します。
さらに「？」も邪魔なので次のようにして消去します。「検索する文字列」で「?」を指定、「置換後の文字列」に空欄（つまり何も指定しない）として「すべて置換」します。もし、ピリオドやカンマがあれば、それも同様に削除してください。

（２）
こうして１単語毎に改行した文書を「名を付けて保存」で「ファイルの種類」を「書式なし（*.txt）」形式で保存します。

（３）（２）のテキストファイルをExcelで開きます。
ファイルを開くと「テキストファイルウィザード」が表示されます。
「１／３」はそのまま「次へ」、「２／３」の区切り文字で「その他」をチェックし「_」を入力します。完了ボタンを押します。

以上で、A列に単語、B列に数値が入力されます。

（４）
頻度を算出します。
まず、データ全体を選択してA列でソートします。昇順・降順は問いません。
次にセルC1に以下の式を入力します。
=IF(A1<>A2,COUNTIF(A1:A,A1),"")
セルC1をコピーして、単語のある行全部のC列にコピーします。
C列を選択してコピーし、そのまま「形式を指定して貼り付け」で「値」を指定して貼り付けます。
データ全体を選択してC列でソートします。C列が空欄の行を削除します。

以上で、必要な情報が取得できたはずです。後は好きなようにフォーマットを修正してください。

お礼

cistronezkさん、ご回答ありがとうございました。
マクロは手が出なかったのですが、教えていただいた方法でしたらすぐに出来ます。急いでいたので本当に助かりました。