Add space with vba at the begining of text

[scorpio3st]

Hi,

Please can you help me to add space at the beginning of word (Sheet name="Lista1, range Column "J"?
I need macro.
Thanks.

 

[JEC]

For every cell in column J:

Sub jec()
 For Each it In Sheets("Lista1").Range("J1", Sheets("Lista1").Cells(Rows.Count, "J").End(xlUp))
   it.Value = " " & it.Value
 Next
End Sub

 

[scorpio3st]

For every cell in column J:

Sub jec()
 For Each it In Sheets("Lista1").Range("J1", Sheets("Lista1").Cells(Rows.Count, "J").End(xlUp))
   it.Value = " " & it.Value
 Next
End Sub

Thanks. Works perfect.

 

[Peter_SSs]

Another option is to do them all at once rather than cell-by-cell.

add space at the beginning of word

Further, if you happen to have any blank cells in the range, this will also leave them blank (rather than adding a space to the blank cell) as there is no word to put the space before.

Sub AddSpace()
  With Sheets("Lista1").Range("J1", Sheets("Lista1").Range("J" & Rows.Count).End(xlUp))
    .Value = Evaluate(Replace("if(#="""","""","" ""&#)", "#", .Address(External:=True)))
  End With
End Sub