Delete Characters

Click69 · Feb 18th 2005

I have a spreadsheet with a large number of product codes that include eight now redundant characters. I am trying to create a macro to pass down a column and delete the first eight characters in each cell. This is an example of the data I am working with.

5104001 0175V359
6010001 0179V498
6010001 0179V499
3807110 0185V158
5430000 0186V133
3807085 0191A001AA

Anyone any idea how to approach this?

Akr · Feb 18th 2005

Re: Deleting a set number of characters in a cell

Put your value in cell A1
and try using formula =RIGHT(A1,LEN(A1)-8) in cell A2.

Good Luck!

Jong · Feb 18th 2005

Re: Deleting a set number of characters in a cell

Just do something like this:

Code

Dim newString as String
Dim I as Integer
I = 1


While Worksheets("YOURSHEET").Range("A" & I) <> ""
    newString = Worksheets("YOURSHEET").Range("A" & I)
    newString = Right(newString, Len(newString) - 8)
   Worksheets("YOURSHEET").Range("A" & I) = newString


Wend

Display More

Delete Characters

Participate now!

Share