View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Claus Busch Claus Busch is offline
external usenet poster
 
Posts: 3,872
Default deleting numbers prefix

Hi Paula,

Am Wed, 6 Jun 2012 14:01:52 +0100 schrieb Paula:

Can anyone tell me how to delete numbers say 6 digits prefix and say 8
numbers right to left leaving the centre visible.

ie. 00001010456987123000101010


didn't you read my answer in the other thread?
In a helper column try it with:
=MID(A1,7,LEN(A1)-14)
then copy the helper column and paste it back as values.
Or try it with VBA:

Sub CutNum()
Dim LRow As Long
Dim first As String
Dim last As String
Dim rngC As Range

LRow = Cells(Rows.Count, "A").End(xlUp).Row
For Each rngC In Range("A1:a" & LRow)
first = Left(rngC, 6)
last = Right(rngC, 8)
rngC = Replace(Replace(rngC, first, ""), last, "")
Next
End Sub


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2