Convert a text file to a unique list of words.

you can try using Split function. read a line of text from the text file and use something like this

stringArray = Split(lineOfText," ")
For i = 0 to UBound(stringArray)
    MsgBox stringArray(i)
Next

Maybe something like:

Sub macro_1()
Dim fs, fil, str, i
Set fs = CreateObject("Scripting.filesystemobject")
Set fil = fs.Opentextfile(Application.GetOpenFilename(fileFilter:="Text Files (*.txt), *.txt"))
Do Until fil.AtEndOfStream = True
    str = Split(fil.readline)
    For Each i In str
        If Application.CountIf(Range("A1:A" & Range("A" & Rows.count).End(xlUp).Row), "=" & i) = 0 Then
            Range("A" & Rows.count).End(xlUp).Offset(1, 0) = i
        End If
    Next
Loop
End Sub

yudlugar,

Your code threw a bug at

Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = i

which I got to work by changing that If statement to

last_R = Range("A65536").end(xlUp).Row
Range("A" & last_R + 1).Value = i

So from here it should be easy to work with. Thank you very much and have a good day. I am going to mark this thread as solved now.