Hücrelerdeki verileri + işaretinden sonraki rakam ve sayıları silme

[tekkral.cihan]

A2 ile AA100 arasındaki Hücrelerdeki verileri + işaretinden sonraki sayı ve harfleri Butona tek tıklamayla silme bu konuyla ilgili yardımcı olabilir misiniz?

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz...

Sub kod()
With Range("A2:AA100")
    dz = .Value
    For a = LBound(dz) To UBound(dz)
        For b = LBound(dz, 2) To UBound(dz, 2)
            If dz(a, b) <> "" Then dz(a, b) = Split(dz(a, b), "+")(0)
        Next
    Next
    .Value = dz
End With
End Sub

 

[tekkral.cihan]

Çok teşekkür ederim işime yaradı

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...