Как игнорировать специальные символы при ссылке на строку в Excel VBA

Question

Я пытаюсь использовать vba, чтобы прочитать отзывы клиентов и связать их с набором ключевых слов, сопоставленных с категориями. Однако проблема, с которой я сталкиваюсь, заключается в том, что иногда клиенты используют специальные символы, такие как «- ^ <*‘, в своих комментариях, и это нарушает мой код, как только он попадает в такую ​​строку. Как я могу заставить свой код игнорировать эти специальные символы и продолжать двигаться вниз по строкам для поиска критериев? Заранее спасибо </p>

Answer 1

Сначала поместите данные для «очистки» в столбец A , затем выполните:

Sub Kleanup()
    Dim A As Range, aa As Range, L As Long, i As Long
    Dim CH As String, temp As String
    Set A = Range("A:A")
    For Each aa In Intersect(A, ActiveSheet.UsedRange)
        If aa <> "" Then
            L = Len(aa)
            temp = ""
            For i = 1 To L
                CH = Mid(aa, i, 1)
                If CH Like "[A-Za-z0-9]" Then
                    temp = temp & CH
                End If
            Next i
            aa.Value = temp
        End If
    Next aa
End Sub

Удаляются все символы, кроме 0 - 9 , а также заглавные и строчные буквы.