Как удалить все смайлики из excel

Если ваши смайлики-это фигуры, то в 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:

Если в emojis Text, а затем выберите ячейку и:

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