Vba excel удалить непечатаемые символы

С помощью следующего короткого кода VBA вы также можете удалить не буквенно-цифровые символы. Сделать это можно так:

1. Нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модули, а затем вставьте ниже код VBA в модуль:

VBA: удалить все не буквенно-цифровые символы

Sub RemoveNotAlphasNotNum()
'Updateby2014128
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    xOut = ""
    For i = 1 To Len(Rng.Value)
        xTemp = Mid(Rng.Value, i, 1)
        If xTemp Like "[a-z.]" Or xTemp Like "[A-Z.]" Or xTemp Like "[0-9.]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

3, нажмите F5 ключ или щелкните Run кнопку для выполнения кода.

4. Затем выберите диапазон, из которого вы хотите удалить все не буквенно-цифровые символы во всплывающем диалоговом окне, и щелкните значок OK кнопку.

Теперь все не буквенно-цифровые символы были удалены из выбранного диапазона. Смотрите скриншот:

2 щелчка мышью, чтобы удалить все не буквенно-цифровые символы с помощью замечательного инструмента

Обычно мы помещаем курсор в ячейку, а затем вручную удаляем небуквенно-цифровые символы один за другим. Если вы знакомы с VBA или пользовательскими функциями, вы можете написать код и удалить все символы, кроме буквенно-цифровых, массово. Но здесь я порекомендую удивительный инструмент, функцию удаления символов из Kutools for Excel, который может удалить все виды символов всего за 2 клика!

Вы также можете определить настраиваемую функцию для удаления всех не буквенно-цифровых символов из ячеек в Excel.

1, нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модули, а затем вставьте приведенный ниже код в модуль:

Функция, определяемая пользователем: удаление всех не буквенно-цифровых символов

Function DeleteNonAlphaNumeric(xStr As String) As String
Dim xStrR As String
Dim xCh As String

Dim xStrMode As String
Dim xInt As Integer
    xStrMode = "[A-Z.a-z 0-9]"
    xStrR = ""
    For xInt = 1 To Len(xStr)
        xCh = Mid(xStr, xInt, 1)
        If xCh Like xStrMode Then
            xStrR = xStrR & xCh
        End If
    Next
    DeleteNonAlphaNumeric = xStrR
End Function
    

3. Теперь вернитесь на рабочий лист, выберите пустую ячейку и введите формулу = DeleteNonAlphaNumeric (B3), а затем перетащите загрузку дескриптора автозаполнения, чтобы применить эту формулу к другим ячейкам.

Для двух вышеуказанных методов вам необходимо знать коды, но, как новички в Excel, большинство из нас не может использовать код, поэтому здесь я дам вам простой способ сделать это.

Kutools for Excel— Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная пробная версия 30-день, кредитная карта не требуется! Get It Now

Если вы установили Kutools for Excel, выполните следующие действия:

1. Выберите диапазон, из которого нужно удалить не буквенно-цифровые символы, и нажмите Кутулс > Текст > Удалить символы.

2, Затем Удалить символы появится диалоговое окно, только отметьте Не буквенно-цифровые и нажмите Ok кнопку.

Теперь все не буквенно-цифровые символы были удалены из текстовых строк.

Оценок пока нет. Оцените первым!