Два набора данных для сравнения.

6701.2345_5432 и на втором система вставила буквы. 6701E.2345_5432

У меня есть около 8000 строк, которые мне нужно сравнить, и я не могу изменить код VBA, чтобы удалить альфы без удаления специальных символов, которые мне нужно сохранить.

Спасибо за вашу помощь!

2 ответа2

1

Этот код VBA использует RegEx для удаления буквенных символов из всех ячеек на активном листе.
Измените [A-Za-z] на то, что должно быть удалено.

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
0

Незначительная ревизия для использования только выбранных ячеек

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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .