İlk karakteri koşullu silme

[Engineerist34]

Merhabalar,
Bir sözlük uygulaması için excelde bulunan kelimeler kullanılacak,
C sütununda aşağıya doğru 25.000 adet (satır) kelime var. Kelimeler aktarılırken bazı hücrelerin başında "," (virgül) gelmiş.
bunu kaldırmak için kod yazmak istedim ama olmadı tabiki
Kod aşağıdaki gibi nerde hata yaptım bilmiyorumm

Sub Virgul_Sil()

Worksheets("Sayfa1").Range("C3").Select

For i = 3 To 25000

y = ActiveCell.Characters(Start:=1, Length:=1)

If y = "," Then

ActiveCell.Value = ActiveCell.Replace(",", "")

ActiveSheet.Cells(i, 3).Select

Else

ActiveSheet.Cells(i, 3).Select

ActiveCell.Value = LCase(ActiveCell.Value)

Next i

End Sub

birde for next döngüsünde son hücre için 25000 gibi numara yazmayayım, son hücre değişebileceği için kendisi gitsin istiyorum.

yardımlarınız için şimdiden çok teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Şu kodu deneyiniz:

Sub Virgul_Sil()
For i = 3 To Cells(Rows.Count, 3).End(3).Row
    If Left(Cells(i, "C"), 1) = "," Then
        Cells(i, "C").Value = Mid(Cells(i, "C").Value, 2, Len(Cells(i, "C").Value))
    End If
Next i
End Sub

 

[Engineerist34]

Ömer Bey,

Çok teşekkür ederim. Emeğinize Sağlık..