Concatenate

[rickm50]

Am trying to cancatenate one column in Excel. It has +950
rows, want to add "RS8" to each cell value, cell value is
text like "-009" (4 charactors only), so each cell value
will become RS8 + Cell.Value ("RS8-009")
Thanks in advance.
Rick

 

[Terry V]

This is one way that it will work for you. Im sure there are many others
with another solution.

Sub test3()
Dim rng As Range
Dim val As String
Dim addval As String

Set rng = Range("B2:B1000") 'set the range of cells to be affected
addval = "RS8" 'initialize the text to add to the start of the
contents
For Each cl In rng ' cycle through the cells
val = addval & cl.Value ' add the value to the beginning of the
cell contents
cl.Value = val 'place the new value as the value of the cell
Next cl

End Sub

HTH
Terry

 

[Rick]

Terry
THANKS for reply. I'll give this a try.
I think I see how that works thanks to your input.
Rick