return all text strings beginning with "#" from a column

[cosgrove]

Hi, I have a single column with 860,000 rows (each cell is a tweet) and I need to extract all unique hashtags from that column.
(A hashtag is a text string that begins with "#" and has no spaces, but will vary in length.)
Many cells contain multiple hashtags, and the vast majority of hashtags will show up in hundreds or even thousands of cells. I need a simple list of all unique hashtags, and expect there to be between 200-500.
Any suggestions? Thanks so much.

 

[mirabeau]

Shorter, faster, same output.

Sub another()
Dim n&, e, x, d As New dictionary 'ref MS scripting runtime
n = Cells(Rows.Count, 1).End(3).Row
For Each e In Range("A1").Resize(n).Value
    x = Split(e, "#", -1)
    For j = 1 To UBound(x)
       d("#" & Split(x(j), " ")(0)) = 0
    Next j
Next e
[d1].Resize(d.Count) = Application.Transpose(d.Keys)
End Sub