A sutunun değerinin sondan iki karekter silerek B sutununa yazma

[ASMET67]

Selamlar.
A sununda bulunan kodların ensonundaki sıfırları kesilmişolarak B sutununa nasıl yazdıra bilirim.

Örnek Dosya ektedir.


4975000 = 4975 olacak

32600 = 326 olacak.

 

[Kemal Demir]

Günaydın,

Sub sifirlaritemizle()
For j = 2 To [a65536].End(3).Row
yeniden:
If Right(Cells(j, 1), 1) = "0" Then
Cells(j, 1) = Left(Cells(j, 1), Len(Cells(j, 1)) - 1)
GoTo yeniden
End If
Next
End Sub

İyi Çalışmalar.

 

[veyselemre]

Dosyanız için alternatif,

Sub sondakiSifirlariTemizle()
    Set rRng = Range("A1", Range("A" & Rows.Count).End(xlUp))
    With CreateObject("vbscript.regexp")
        .Pattern = "0*$"
        .Global = True
        For Each rCell In rRng
            rCell.Offset(, 1) = .Replace(rCell, "")
        Next rCell
    End With
    Set rRng = Nothing
End Sub