Excel: удалить только буквенные символы (сохранить специальные символы)
Два набора данных для сравнения.
6701.2345_5432, а во второй – вставленные в систему буквы. 6701E.2345_5432
У меня около 8000 строк, которые мне нужно сравнить, и я не могу изменить код VBA, чтобы удалить альфа, не удаляя специальные символы, которые мне нужно сохранить.
- Как установить макет страницы по умолчанию из RTL в LTR в Excel 2010?
- Случайный выбор в Excel
- Excel: найдите подмножество чисел, которые добавляются к данной сумме?
- Создание линейных диаграмм, чтобы линия проходила через все точки данных
- Формула массива Excel для max с множественными / переменными критериями
Спасибо за вашу помощь!
- Формула разделения в excel
- Настроить десятичный разделитель в импортированных диаграммах
- Странный остаток на ячейке с проверкой данных при использовании Excel VBA
- Создайте список содержимого ячейки, разделенный запятыми, за исключением пробелов
- Как вы находите максимальное значение в столбце, пропуская до каждого n-го значения?
- VBA делает ячейки обязательными на основе предыдущей записи ячейки
- Excel, группируйте ряд строк в столбцы
- Как объединить два столбца Excel в один?
Этот код 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