כיצד להסיר תווים שאינם אלפא-נומריים ב-Excel?

עם הקוד הקצר הבא של VBA, תוכל גם להסיר תווים שאינם אלפא-נומריים. אתה יכול לעשות זאת כך:

1. לחץ יחדיו על מקשי Alt + F11 כדי לפתוח את חלון Microsoft Visual Basic for Applications.

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 או לחץ על כפתור הפעלה כדי להפעיל את הקוד.

4לאחר מכן, בחר טווח שבו ברצונך להסיר את כל התווים שאינם אלפא-נומריים מתוך תיבת הדו-שיח שתופיע, ולחץ על אישור כפתור.

כעת כל התווים שאינם אלפא-נומריים הוסרו מהטווח שנבחר. ראה צילום מסך:

2 לחיצות כדי להסיר את כל התווים שאינם אלפא-נומריים באמצעות כלי מדהים

באופן נפוץ אנו מניחים את הסמן בתא ואז מסירים את התווים שאינם אלפא-נומריים אחד אחרי השני באופן ידני. אם אתה מכיר את VBA או פונקציות מוגדרות על ידי המשתמש, תוכל לקודד זאת ולהסיר את כל התווים שאינם אלפא-נומריים בכמות גדולה. אך כאן, אני אמליץ על כלי מדהים, תכונת 'הסרת תווים' של Kutools עבור Excel, אשר יכולה להסיר כל סוג של תווים בשתי לחיצות בלבד!

אתה יכול גם להגדיר פונקציה מותאמת אישית כדי להסיר את כל התווים שאינם אלפא-נומריים מתאים ב-Excel.

1. לחץ יחדיו על מקשי Alt + F11 כדי לפתוח את חלון Microsoft Visual Basic for Applications.

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 עבור Excel- כולל יותר מ-300 כלים שימושיים עבור Excel. ניסיון חינם מלא ל-30-ימים, אין צורך בכרטיס אשראי! קבל אותו עכשיו

אם התקנת את Kutools עבור Excel, אנא עשה זאת לפי השלבים הבאים:

1. בחר את הטווח ממנו ברצונך להסיר תווים שאינם אלפא-נומריים, ולחץ על Kutools > טקסט > הסרת תווים.

2. לאחר מכן תופיע תיבת דו-שיח מחיקת תווים תיבת דו-שיח תופיע, רק סמן לא אלפא-נומרי אפשרות, ולחץ על אישור כפתור.

כעת כל התווים שאינם אלפא-נומריים הוסרו מרצפי הטקסט.