Добрый день. Есть столбец с буквенно-числовыми данными. В каждой ячейке есть разный текст и разные цифры. Пример: Василий Иванов тел. 222-22-22. Как удалить во всем столбце текстовые данные ? ctrl+H не поможет ? Или, если уже есть похожая тема, то можете прислать ссылку ?
Я так понимаю, это просто символ * (звездочка) Сделал со звездочкой, удалились вообще все данные с таблицы. Пример в ОДНОЙ ЯЧЕЙКЕ : (222) 222-22-22 — оператор (333) 333-33-33 Надо в этой же ячейке оставить все, кроме слова ОПЕРАТОР и заменить его на пробел или запятую.
"*. " = звездочкаточкапробел в поле забивается без кавычек, а если бы приложили файл пример с 30 строками различных вариаций текста и рядом с результатом что хотите то дополнительных вопросов бы не возникало
Option Explicit
Option Compare Text
Sub LettersErase()
Dim rn As Range, s As String, i As Long
For Each rn In Selection
s = rn
For i = 1 To Len(s)
Select Case Mid$(s, i, 1)
Case "A" To "Z", "А" To "Я", "Ё"
Mid$(s, i, 1) = " "
End Select
Next i
rn = WorksheetFunction.Trim(s)
Next rn
End Sub
Function aa$(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "[а-яёa-z]+": .Global = True: .IgnoreCase = True
aa = .Replace(t, "")
End With
End Function
Sub test()
Dim z, t$, i&: z = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
With CreateObject("VBScript.RegExp"): .Pattern = "[а-яёa-z]+": .Global = True: .IgnoreCase = True
For i = 1 To UBound(z): t = z(i, 1): z(i, 1) = .Replace(t, ""): Next
Range("A1").Resize(UBound(z), 1).Value = z
End With
End Sub