Excel 열에서 영어가 아닌 문자를 제거하려면 어떻게 해야 하나요?

예를 들어, 여기 일부 영어가 아닌 문자를 포함한 이름 목록이 있습니다. Excel에서 영어가 아닌 문자를 포함하는 셀을 빠르게 제거하려면 어떻게 해야 할까요?

VBA를 사용하여 영어가 아닌 문자를 포함하는 행 제거하기

Kutools for Excel을 사용하여 문자열에서 영어가 아닌 문자 제거하기

VBA를 사용하여 영어가 아닌 문자를 포함하는 행 제거하기

다음은 Excel에서 영어가 아닌 문자를 포함하는 행을 제거할 수 있는 VBA입니다.

1. 제거하려는 문자를 포함한 워크시트를 활성화하고 Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고 아래 코드를 모듈에 붙여넣습니다.

VBA: 영어가 아닌 문자 제거

Sub RemoveNonEnglish()
'UpdatebyExtendoffice20171204
    Dim xRg As Range
    Dim xCell As Range
    Dim I As Long
    Dim J As Long
    Dim xRows As Long
    Dim xAsc As Long
    On Error Resume Next
    Set xRg = Application.InputBox("Select single column:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    xRows = xRg.Rows.Count
    Set xRg = xRg(1)
    For I = 1 To xRows
        Set xCell = xRg.Offset(I - 1)
        If xCell.Value <> "" Then
            For J = 1 To Len(xCell.Value)
                xAsc = Asc(UCase(Mid(xCell.Value, J, 1)))
                If xAsc < 65 Or xAsc > 90 Then
                    xCell.EntireRow.Delete
                    I = I - 1
                    Exit For
                End If
            Next
        End If
    Next
    Application.ScreenUpdating = True
    MsgBox "Completed...", vbInformation
End Sub

3. 누릅니다 F5 키를 눌러 팝업 대화 상자에서 사용할 열 목록을 선택합니다.

4. 클릭 확인 > 확인을(를) 클릭하면 영어가 아닌 문자를 포함하는 행이 제거됩니다.

참고: 이 VBA는 한 열에만 적용됩니다.

Kutools for Excel을 사용하여 문자열에서 영어가 아닌 문자 제거하기

아래 스크린샷과 같이 문자열에서 영어가 아닌 문자를 제거하려면 Kutools for Excel의 특정 문자 삭제 기능을 사용하여 빠르게 처리할 수 있습니다.

1. 범위를 선택하고 Kutools > 텍스트 > 특정 문자 삭제를 클릭합니다. 스크린샷 보기:

2. 다음을 체크합니다 알파벳이 아닌 문자 다음에서만 특정 문자 삭제 대화 상자에서 결과를 미리 볼 수 있습니다. 미리보기 에서 먼저 확인하세요.

3. 클릭 확인을(를) 클릭하면 문자열에서 영어가 아닌 문자가 제거됩니다.

데모: Kutools for Excel을 사용하여 문자열에서 영어가 아닌 문자 제거하기