Macro to subtract data from cells
I think that a piece of code which traverses each row of your spreadsheet and
checks the beginning of each cell's value against your standard values will
do what you need.
i.e.
(A column is an index, B column is the name field and so on)
line_counter=1
While line_counter < range("blah").rows.count
Activecell.Offset(1,0).Select // move down one row in A column
if Left(Activecell.Offset(0,1).Value,12)="Your name : " then
Activecell.Offset(0,1).Value=MID(Activecell.Offset (0,1).Value,13,999) //
this leaves the remaining characters after the unwanted part in the B column
cell
endif
line_counter=line_counter+1
Wend
Hope this helps
|