=ЛЕВСИМВ(C6;ПОИСК(" ";C6)-1)
=ПОДСТАВИТЬ(C6;" B";"")
=--ПОДСТАВИТЬ(ПСТР(C6;2;ПОИСК(" ";C6)-2);".";",")
=--ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(C6;" B";"");"$";"");".";",")
Function aa#(t$) With CreateObject("VBScript.RegExp"): .Pattern = "\$\S+": aa = Replace(Mid(.Execute(t)(0), 2), ".", ",") End With End Function