View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Don Guillett[_2_] Don Guillett[_2_] is offline
external usenet poster
 
Posts: 1,522
Default How do you insert a phrase at the start of all cells in a column?

change mc to your column

Sub insertphraseallcellsincolumn()
Dim i As Long
Dim mc As Long
mc = 11 'col K
For i = 2 To Cells(Rows.Count, mc).End(xlUp).Row
If Len(Application.Trim(Cells(i, mc))) 0 Then
Cells(i, mc).Value = "new stuff " & Cells(i, mc)
End If
Next i
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Elskan" wrote in message
...
I am trying to insert the same phrase followed by a colon and a space in
front of the text in all cells in a column. Is there a simple way to do
this
with find and replace?