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

נניח שיש לך גליון עבודה שמכיל הרבה מידע מסוג זה "James987den", הנתונים מכילים גם תווים אלפביתיים וגם תווים מספריים, וברצונך לשמור על התווים האלפביתיים ולהסיר את התווים המספריים מכל המידע הזה. למשל, להמיר את "James987den" ל-"Jamesden". האם ישנן דרכים מהירות להתמודד עם הבעיה?

הסרת תווים מספריים עם קוד VBA

הסרת תווים מספריים במהירות עם Kutools for Excel

 הסרת תווים מספריים עם קוד VBA

אם אתה מכיר את קוד ה-VBA, תוכל להשתמש בשיטה זו עם השלבים הבאים:

1. לחץ על "Developer" > "Visual Basic" או השתמש בקיצורי מקשים ("ALT" + "F11") ב-Excel כדי להפעיל את חלון Microsoft Visual Basic עבור יישומים, ולאחר מכן לחץ על "Insert" > "Module".

2. הקלד את הקוד הבא לתוך המודול:

Sub RemoveNum()
'Updateby Extendoffice
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 "[0-9.]" Then
            xStr = ""
        Else
            xStr = xTemp
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

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

5. לחץ על "אישור" וכל התווים המספריים יוסרו.

 הסרת תווים מספריים במהירות עם Kutools for Excel

כלי "Delete Characters" של "Kutools for Excel" הוא כלי חזק למחיקת סוגים מרובים של תווים.

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

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

שלב 2. לחץ על "Kutools" > "Text" > "Remove Characters", בתיבת הדו-שיח, סמן "Numeric", ראה צילום מסך:

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