УДФ  
 
Function uu(t As String, k) As String  
Dim i As Long  
Dim tt As String  
uu = ""  
For i = 1 To Len(t)  
   tt = Mid(t, i, 1)  
   If tt = ":" Then  
       uu = uu & tt  
       i = i + 1  
       uu = uu & Mid(t, i, 1) * Val(k)  
       Else  
       uu = uu & tt  
   End If  
Next i  
 
End Function

Спасибо огромное а без УДФ никак?

{quote}{login=Казанский}{date=21.02.2011 01:49}{thema=}{post}UDF пишется за 5 минут. Формула будет трехэтажная, составить ее значительно труднее.  
Может, кто-то из формулистов откликнется?{/post}{/quote}  
Формула несложная, но знаков будет много, надо отрезать все числа после : до первого за ним пробела и умножить на К. Вопрос в том как СЦЕПИТЬ получившийся массив. Насколько я помню (kim объяснял) это стандартными средствами невозможно...