How do I add additional text in many cells
Hi,
One way. Right cleck the sheet tab, view code and paste this in. Select the
range where your data are and then run this code:-
Sub addtext()
newtext = "_9.11"
Set myrange = Selection
For Each c In myrange
If c.Value = "H1/1" Or c.Value = "H7/2" Or c.Value = "H8/3" _
Then c.Value = c.Value & newtext
Next
End Sub
Mike
"The Austrian" wrote:
Hello,
I'd like to know how I can insert the same additional text to cells when
there is already text in these cells without having to type it in every cell
separately:
H1/1
H7/2
H8/3
should read
H1/1_9.11
H7/2_9.11
H8/3_9.11
Thanks
Markus
|