- Katılım
- 27 Ağustos 2013
- Mesajlar
- 213
- Excel Vers. ve Dili
- Office 2019 Pro
Türkçe
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba,
Verilerinizde damga 173 karakteri olduğu için toplama yapmıyor.
Ctrl+H (bul değiştirden) "Aranan" bölümüne;
alt + 0173 yazıp tümünü değiştir ile işlemi bitirin.
Sub TEST()
For Each HUC In [b2:C18]
S = ""
For I = 1 To Len(HUC.Value)
AL = Mid(HUC.Value, I, 1)
If Asc(AL) <> 63 Then S = S & AL
Next I
HUC.Value = S
Next HUC
End Sub
TeşekkürlerKod:Sub TEST() For Each HUC In [b2:C18] S = "" For I = 1 To Len(HUC.Value) AL = Mid(HUC.Value, I, 1) If Asc(AL) <> 63 Then S = S & AL Next I HUC.Value = S Next HUC End Sub