vasilek7777, вариант функции ccc в C1 или функция ddd или функция aaa
[vba]Код
Function ccc$(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "[^$]+": .Global = True : ccc = .Execute(t)(1)
End With
End Function
[/vba]
[vba]Код
Function ddd$(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "\$.+(?=\$)": ddd = Mid(.Execute(t)(0), 2)
End With
End Function
[/vba]
[vba]Код
Function aaa$(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "\$(.+)\$": aaa = .Execute(t)(0).Submatches(0)
End With
End Function
[/vba]