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
|