посмотрите на http://www.excelworld.ru/forum/3-511-1  
я там выкладывал UDF, раскодирующую кракозябры:  
Function ПОЧИНИТЬ_КИРИЛЛИЦУ(ГЛЮК$)  
     '---------------------------------------------------------------------------------------  
     ' Procedure    : ПОЧИНИТЬ_КИРИЛЛИЦУ  
     ' Author       : The_Prist, KukLP, Alex_ST  
     ' DateTime     : 29.04.11, 09:52  
     ' Topic_HEADER : Как прочесть "кракозябры", получаемые после копирования-вставки кириллицы из Висты?  
     ' Topic_URL    : http://www.planetaexcel.ru/forum.php?thread_id=26894  
     ' Purpose      : правит глюки типа Ýòà äîë и другие "кракозябры" после вставки кириллицы из Vista  
     ' Notes        :  
     '---------------------------------------------------------------------------------------  
     Dim Arr, i%, sTxt$, sSymb$  
     'ГЛЮК = Replace(ГЛЮК, "&#", ";&#"): ГЛЮК = Replace(ГЛЮК, ";;", ";"):Arr = Split(ГЛЮК, ";")  
     Arr = Split(Replace(Replace(ГЛЮК, "&#", ";&#"), ";;", ";"), ";")  
     If UBound(Arr) > LBound(Arr) Then  
        For i = LBound(Arr) To UBound(Arr)  
           If Left(Arr(i), 2) = "&#" And IsNumeric(Mid(Arr(i), 3)) Then  
              Arr(i) = CInt(Replace(Arr(i), "&#", ""))  
              Arr(i) = Chr(IIf(Arr(i) > 256, Arr(i) - 848, Arr(i)))  
           End If  
        Next  
        sTxt = Join(Arr, "")  
     Else  
        For i = 1 To Len(ГЛЮК)  
           sSymb = Mid(ГЛЮК, i, 1)  
           If AscW(sSymb) > 255 Then  
              sTxt = sTxt & sSymb  
           Else  
              sTxt = sTxt & Chr(AscW(sSymb))  
           End If  
        Next i  
     End If  
     ПОЧИНИТЬ_КИРИЛЛИЦУ = sTxt  
End Function