Excel: Hapus hanya karakter alfabet (mempertahankan karakter khusus)

0

Dua set data untuk dibandingkan.

6701.2345_5432 dan pada sistem kedua dimasukkan huruf. 6701E.2345_5432

Saya memiliki sekitar 8000 baris yang perlu saya bandingkan dan sepertinya saya tidak dapat memodifikasi kode VBA untuk menghapus alfa tanpa menghapus karakter khusus yang perlu saya pertahankan.

Terima kasih atas bantuan Anda!

DanDataDan
sumber

Jawaban:

2

Kode VBA ini menggunakan RegEx untuk menghapus karakter alfabet dari semua sel pada lembar aktif.
Ubah [A-Za-z]apa pun yang harus dihapus.

Sub RegExRemove()

    Dim RegEx As Object
    Set RegEx = CreateObject("VBScript.RegExp")
    RegEx.Global = True

    RegEx.Pattern = "[A-Za-z]"
    For Each objCell In ActiveSheet.UsedRange.Cells
        objCell.Value = RegEx.Replace(objCell.Value, "")
    Next

End Sub
nixda
sumber
1

Revisi kecil untuk hanya menggunakan sel yang dipilih

Sub RegExRemove ()

Dim RegEx As Object
Set RegEx = CreateObject("VBScript.RegExp")
RegEx.Global = True

RegEx.Pattern = "[A-Za-z]"
For Each Cell In Selection()
   Cell.Offset(0, 1).Value = RegEx.Replace(Cell.Value, "")
Next

End Sub

Thom Greer
sumber