Thread: delete left 8 characters in many cells
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
pikus pikus is offline
external usenet poster
  
Posts: 1
Default delete left 8 characters in many cells
lrow = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
y = 5 ‘The number of the column
For x = 1 To lrow
ActiveSheet.Cells(x, y).Value = Mid(ActiveSheet.Cells(x, y).Value, 9)
Next x

- Piku

--
Message posted from http://www.ExcelForum.com

Reply With QuoteReply With Quote