web-dev-qa-db-ja.com

Excelからすべての絵文字を削除する方法

「MySQLforExcel」機能を使用してMySQLにエクスポートしたいExcelシートがあります。ただし、一部のセルに????などの絵文字があるため、これを機能させるのに問題があります。初期化。そのため、これらのセルをMySQLのデータ型テキストに変換することはできません。 CLEAN（）を使用してみましたが、削除されません。

これらの絵文字を除外する方法はありますか？

ExcelデータをMySQLにエクスポートできる他の選択肢や回避策がある場合は、それも受け入れます。ありがとうございました。

microsoft-excelmysqlutf-8
1
Alice

絵文字が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

編集＃1：

絵文字が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
1
Gary's Student