Inserting data in cells

  • Thread starter Thread starter bt707
  • Start date Start date
B

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!!!!
 
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
 
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
 
Back
Top