Tweede cijfer verwijderen uit 10.000 records

[michielbeentjes]

Hi,

Ik zit met het volgende:
Ik heb een Excel bestand met +/- 10.000 records. Ieder record heeft in een Kolom B een getal in de vorm van "60000000002" staan.
Nu wil ik voor alle 10.000 records de 1e "0" (het tweede cijfer dus) verwijderen.

Weet iemand een handige manier om dit aan te pakken?

Thanks!

 

[Haaren101]

Voor alle duidelijkheid. Staat de formattering van kolom B als tekst of als getal?

Of nog beter; kan je het bestand of op zijn minst die ene kolom hier als voorbeeld plaatsen

Ron

 

[DCWDPT]

gewoon aftrekken

Wat dacht je van gewoon 54000000000 er aftrekken?

 

[Cobbe]

Of nog beter, draai deze macro:

Sub Nul_Weg()
For Each c In Range("A1:A10000") 'of A:A
 For i = 1 To Len(c)
   If i = 2 Then i = i + 1
   nieuwe_waarde = nieuwe_waarde & Mid(c, i, 1)
 Next
Range(c.Address) = nieuwe_waarde
nieuwe_waarde = ""
Next
End Sub

Deze is korter maar duurt even lang(kort)

Sub test()
For Each c In Range("A1:A10000")
    nieuwe_waarde = Left(c, 1) & Right(c, Len(c) - 2)
    Range(c.Address) = nieuwe_waarde
    nieuwe_waarde = ""
Next
End Sub

Cobbe

 

[michielbeentjes]

Thanks! Heerlijk die simpele oplossingen!
Problem solved.

Gr,
Michiel

- edit - Reactie gold voor de oplossing van DCWDPT, maar die Macro van Cobbe ga ik ook eens proberen

 

[Warme bakkertje]

Wil je hem echt sneller

Sub Nul_Weg()
sq = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
For i = 1 To UBound(sq)
    nw = Left(sq(i, 1), 1) & Right(sq(i, 1), Len(sq(i, 1)) - 2)
    sq(i, 1) = nw
    nw = ""
Next
[A1].Resize(UBound(sq)) = sq
End Sub