Inserting data in cells

[bt707]

I have a row of cells that have last names in them, is there a way I can
insert some data into all of the cells, this data will be the same for
all names.

Ex

Before jones1
After (alias=jones1)

then if possible export all of the names to a word or text file all in
one line.

Ex (alias=jones1)(alias=smith2)(alias=johnson3)


Thanks for any help!!!!

 

[Tom Ogilvy]

dim cell as Range
for each cell in rows(2).Cells
if not isempty(cell.value) then
Cell.Value = "(alias=" & cell.Value & ")"
else
exit for
endif
Next

 

[Tumbleweed]

If you don't mind doing this manually;
setup a formula in another row
then paste the values of the formula cells back into the original cells
delete the formulas

example:
B2 value is -- jones1

B4 formula -- "(alias="& B2 &")"

B4 value will equal -- (alias=jones1)

now copy B4 and PasteSpecial Values into B2

then clear all from B4

This could also be automated, reply if you need more help