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

נניח שאתה צריך להסיר את כל התווים האלפביתיים מטווח מסוים ב-Excel, למשל נתון אחד בתא עשוי להיות “lucase 13654698745”, ואתה רוצה שזה יהיה “13654698745”, כיצד תוכל במהירות להסיר את כל התווים האלפביתיים מהתאים? האם ישנן רעיונות טובים להתמודד עם הבעיה הזו?

הסרת כל התווים האלפביתיים מהתאים עם קוד VBA

להסיר את כל התווים האלפביתיים עם Kutools for Excel בלחיצה אחת

הסרת כל התווים האלפביתיים מהתאים עם קוד VBA

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

1. לחץ על Developer>Visual Basic או הקש Alt+F11 כדי לפתוח חלון חדש של Microsoft Visual Basic עבור יישומים, לחץ על Insert > Module, והזן את הקוד הבא:

VBA: הסרת תווים אלפביתיים:

Sub RemoveAlphas()
'Updateby20131129
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.]" Then
            xStr = ""
        Else
            xStr = xTemp
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

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

.

4. לחץ אישור, וכל התווים האלפביתיים הוסרו.

להסיר את כל התווים האלפביתיים עם Kutools for Excel בלחיצה אחת.

Kutools for Excel: עם יותר מ-300 תוספים שימושיים עבור Excel, נסה ללא הגבלה במשך 30 יום בחינם. קבל אותו עכשיו

אנא החל את הכלי הזה על ידי לחיצה על Kutools > Text > Delete Characters, ראה צילום מסך:

שלב 1. בחר את הטווח שברצונך לעבוד איתו.

שלב 2. לחץ על Kutools > Text Tools in Editing group > Delete Characters, וסמן Alpha בתיבת הדו-שיח Delete Characters שהופיעה, ראה צילום מסך:

שלב 3. לחץ אישור או החל כדי להסיר את כל התווים האלפביתיים מהטווח.

כלי זה גם יכול למחוק תווים מספריים, תווים שאינם מספריים, תווים שאינם ניתנים להדפסה ועוד.

למידע נוסף על מחיקת תווים של Kutools for Excel, אנא בקר: Delete Characters.

מאמרים קשורים:

הסרת תווים שאינם מספריים מהתאים

הסרת תווים מספריים מהתאים

הסרת תווים שאינם ניתנים להדפסה מהתאים

הסרת תווים שאינם אלפביתיים מהתאים

הסרת תווים שאינם אלפא-נומריים