エクセルで単語データを作成したい

質問

単語学習を効率よく進めたくて次のような単語リストを作りたいと考えています。

A列には番号、 B列には英文のデータがあります。
C列には英文の単語をデータとして生成したいのです。
一度出たデータは省いて新規のものだけ。
この例では、I、 you、mistake(s)は２度目に除外されます。
大文字や、複数形、ed, ing形はややこしくなりますので、手作業で省いてもよいかと思います。

D列には元の英文（A列）の番号

このようなことは可能でしょうか。
自分なりに作っていると、代名詞や前置詞などが多数出てきて困ります。
要は目新しい単語を英文から抽出したいということです。
良い方法があれば教えてください。よろしくお願いします。

A 列　　　B 列
1 　　　　I won't talk to you unless you admit your mistake.
2 　　　　I wonder why you are fighting over such small mistakes.

C列　　　D 列
I 　　　　 1
won't 　　　　 1
talk 　　　　 1
to 　　　　　 1
you 　　　　　 1
unless 　　　　 1
admit 　　　　 1
your 　　　　　 1
mistake 　　　　 1
wonder 　　　　 2
why 　　　　　 2
are 　　　　　　 2
fighting 　　　　 2
over 　　　　　　 2
such 　　　　　　 2
a 　　　　　　　 2
small 　　　　　　 2

回答No.3

noname#99913

次のマクロを試してください。

Option Explicit

Private Sub GetWord()

Dim br As Integer
Dim cr As Integer
Dim stc As String
Dim wrd As String
Dim spc1 As Integer
Dim spc2 As Integer

Range("c:d").Select
Selection.ClearContents

br = 1
Do While Cells(br, 2) <> ""

stc = Cells(br, 2).Value
stc = Replace(stc, ".", " ")

spc1 = 1
Do

spc2 = InStr(spc1, stc, " ")
If spc2 = 0 Then Exit Do
wrd = Mid(stc, spc1, spc2 - spc1)
spc1 = spc2 + 1

cr = 1
Do
Select Case Cells(cr, 3).Value
Case Is = wrd
Exit Do
Case ""
Cells(cr, 3).Value = wrd
Cells(cr, 4).Value = br
Exit Do
End Select
cr = cr + 1
Loop

Loop

br = br + 1
Loop

End Sub

お礼

ちょっと、私の最初の注文がまずかったのでみなさんにご迷惑をおかけしました。
みなさんのおかげで、悪戦苦闘の末、ほぼ思い通りの処理ができました。
英文の中から、指定の単語を抽出し、それを前述の単語リストでチェック、既出のものはその文番号を書き出す。
みなさんからの熱心な回答のおかげで、この３日間私も解決にくらいつくことができました。
これで自分なりの英文、単語のストックが可能になると思います。
一層、英語力の強化に努めたいと思います。
ありがとうございました。