Если вашими смайликами являются Shapes, то в Excel, используя VBA, запустите этот простой макрос:
Sub dural() Dim sh As Shape If ActiveSheet.Shapes.Count <> 0 Then For Each sh In ActiveSheet.Shapes sh.Delete Next End If End Sub
EDIT # 1:
Если смайликами являются « Текст», выберите ячейку и:
Sub kleanIt() Dim r As Range, v As Variant, L As Long Dim CH As String, i As Long, N As Long Set r = ActiveCell v = r.Value L = Len(v) For i = L To 1 Step -1 CH = Mid(v, i, 1) N = AscW(CH) If N < 1 Or N > 256 Then v = Replace(v, CH, "") End If Next i r.Value = v End Sub