Excel 열에서 영어가 아닌 문자를 제거하는 방법은 무엇입니까?

예를 들어, 여기에 영어가 아닌 문자가 포함 된 이름 목록이 있습니다. Excel에서 영어가 아닌 문자가 포함 된 셀을 어떻게 빠르게 제거 할 수 있습니까?

VBA에 의해 영어가 아닌 문자가 포함 된 행 제거

문자 제거로 문자열에서 영어가 아닌 문자 제거

VBA에서 영어가 아닌 문자가 포함 된 행 제거

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

1. 제거 할 문자가 포함 된 워크 시트를 활성화하고 Alt + F11 활성화하는 키 응용 프로그램 용 Microsoft Visual Basic 창.

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. 클릭 OK > OK, 영어가 아닌 문자가 포함 된 행이 제거되었습니다.

주의 사항:이 VBA는 하나의 열에서만 작동합니다.

문자 제거로 문자열에서 영어가 아닌 문자 제거

아래 스크린 샷과 같이 문자열에서 영어가 아닌 문자를 제거하려면 신청할 수 있습니다. Excel 용 Kutools의 문자 제거 기능을 빠르게 완료합니다.

설치 후 Excel 용 Kutools는 다음과 같이하십시오.（지금 Excel 용 Kutools 무료 다운로드!)

1. 필요한 범위를 선택하고 쿠툴 > 본문 > 문자 제거. 스크린 샷보기 :

2. 검사 비 알파 오직 문자 제거 대화 상자에서 결과를 볼 수 있습니다. 시사 먼저.

3. 클릭 Ok, 영어가 아닌 문자가 문자열에서 제거되었습니다.

  Rescale과 함께 비즈니스를 가속화하는 방법에 대해 알아보세요.