Excel text to columns

F

fil

In Excel 2000 I downloaded my annual TD Waterhouse
satement. It all downloads to one cel and trying to get
just the last column into a susable for and separate it
into a single column of its own is difficult. Thewre must
be a simple way. Is here someone who might be able to
talk back and forth with me to resolve?

Thanks,

Fil
 
D

Don Guillett

You can use this macro.

Sub extractlastcol()
For Each c In Range("a2:a161") 'Selection
x = Right(c, InStr(3, c, " "))
If IsNumeric(x) Then c.Offset(, 1) = x
Next
End Sub
 
D

Don Guillett

A small change to trim the text

Sub extractlastcol()
'Columns(2).ClearContents
For Each c In Range("a2:a161") 'Selection
x = Right(c, InStr(Trim(c), " "))
If IsNumeric(x) Then c.Offset(, 1) = x
Next
End Sub
 
D

David DeRolph

I have a TD Waterhouse account. I don't see the option to download, but I
simply displayed the statement via Internet Explorer, select the section of
the statement under Date/Description/Distribution/..., copy, then
PasteSpecial, Text. Text to Columns easily separated the columns. Same for
the Transactions in the lower part of the statement.
 
Top