Soru Tc Vergi No Ayırma Hakkında

[omurcan35]

' Tc_Vergi_No_Ayir()
      For i = 2 To Cells(Rows.Count, "D").End(xlUp).Row
        If Len(Cells(i, "D")) = 12 Then
            Cells(i, "E") = Cells(i, "D")
        End If
        If Len(Cells(i, "D")) = 11 Then
            Cells(i, "F") = Cells(i, "D")
        End If
    Next i

Bu kod ile 11 haneli rakamları bi sütuna 10 haneli olanları diğer sütuna aktarıyorum

İsteğim mümkünse şudur:
"D" sütunundaki veriler '12345678901 veya '0010552533 şeklinde
aktarımdan sonra başından "0" (sıfır) olanlar 10552533 şeklinde aktarılıyor
yani başındaki sıfırları siliyor aktarım.

bunun önüne nasıl geçeriz.

Teşekkürler

 

[veyselemre]

    For i = 2 To Cells(Rows.Count, "D").End(xlUp).Row
        If Len(Cells(i, "D").Value) = 10 Then
            Cells(i, "E").NumberFormat = "@"
            Cells(i, "E").Value = Cells(i, "D").Value
        ElseIf Len(Cells(i, "D").Value) = 11 Then
            Cells(i, "F").Value = Cells(i, "D").Value
        End If
    Next i

 

[omurcan35]

    For i = 2 To Cells(Rows.Count, "D").End(xlUp).Row
        If Len(Cells(i, "D").Value) = 10 Then
            Cells(i, "E").NumberFormat = "@"
            Cells(i, "E").Value = Cells(i, "D").Value
        ElseIf Len(Cells(i, "D").Value) = 11 Then
            Cells(i, "F").Value = Cells(i, "D").Value
        End If
    Next i

teşekkürler