Leave only last 32 chars

[emukiss10]

Hello,

Column I have some info + acc number. Id like to strip this column of everything beside acc.

how delete everything beside last 32 chars?

=Right(I2;32) but to all in column I and with VBA

Thank You

 

[FormR]

=Right(I2;32) but to all in column I and with VBA

Hi, you can try this on a copy of your workbook.

Sub m()
With Range("I2:I" & Range("I" & Rows.Count).End(xlUp).Row)
  .Value = Evaluate("INDEX(RIGHT( " & .Address & ",32),0)")
End With
End Sub

 

[emukiss10]

Ive manage to deal with this little problem with something like this

Dim c As Range
Dim lastrow1 As Long, i As Long

lastrow1 = Range("I" & Rows.Count).End(xlUp).row
i = 2
For Each c In Sheets(1).Range("I1:I" & lastrow1)
c.Value = Right(c.Value, 32)
Next c



BUT

Yours is as always better... Thank You