Цитата
заставить данный макрос работать только с одной указанной ячейкой
Для ячейки А2
[vba]Код
Sub test1()
Dim t, t1, t2, t3
With CreateObject("VBScript.RegExp")
t = Range("A2")
.Pattern = "[а-яё]+": .IgnoreCase = True
t1 = .Execute(t)(0)
.Pattern = "\d+": .Global = True
If .Execute(t).Count > 1 Then t2 = .Execute(t)(.Execute(t).Count - 2): t3 = .Execute(t)(.Execute(t).Count - 1) Else t2 = .Execute(t)(.Execute(t).Count - 1): t3 = ""
Range("A2") = Replace(Replace(Replace(t, t1, ""), t2, ""), t3, "")
Range("A2") = t1: Range("B2") = t2: Range("C2") = t3
End With
End Sub
[/vba]