Excel: удалить только буквенные символы (сохранить специальные символы)

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

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

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

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

Этот код 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 

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

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

  • Фрагментация условного форматирования Excel
  • Как легко объединить несколько ячеек из Excel в одну ячейку?
  • Как я могу выполнить эту функцию с помощью VBA в excel?
  • Как заставить Excel (и другие продукты Microsoft Office) прекратить открытие файлов в одном приложении?
  • Есть ли способ скопировать лист Excel без копирования всех стилей ячеек в исходной книге в целевую книгу?
  • Условное форматирование ячейки на основе значения в 4 смежных ячейках
  • Как извлечь числовое значение после определенной строки в предложении в ячейке Excel?
  • Слишком много текста для ячейки Excel - как сделать прокручиваемую ячейку
  • Как сделать этот график в Excel?
  • Как извлечь данные из графика изображения
  • Транспонирование данных из одного списка столбцов в несколько столбцов
  • Давайте будем гением компьютера.