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

Question

У меня есть лист Excel, который я хочу экспортировать в MySQL, используя функцию "MySQL для Excel". Однако у меня проблемы с тем, чтобы заставить это работать, потому что в некоторых клетках есть смайлики, такие как в нем. И поэтому я не могу преобразовать эти ячейки в текстовый тип данных для MySQL. Я пытался использовать CLEAN(), но он не избавился от них.

Есть ли способ отфильтровать эти смайлики?

Если есть другие альтернативы или обходной путь, который позволил бы мне экспортировать данные Excel в MySQL, я также открыт для этого. Спасибо.

Answer 1

Если вашими смайликами являются 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