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

לדוגמה, יש לך טווח נתונים כגון Jacob "001" @#$%, וברצונך להסיר את כל התווים שאינם אלפביתיים מהמחרוזת כדי להשאיר אותה כ-Jacob. ב-Excel, כיצד תוכל להסיר במהירות את כל התווים שאינם אלפביתיים מהתאים?

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

הסרת תווים שאינם אלפביתיים מהתאים במהירות עם Kutools for Excel

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

עם קוד VBA, תוכל להסיר תווים שאינם אלפביתיים ולשמור רק על התווים האלפביתיים (a-z) בתאים לפי השלבים הבאים:

1. הדגש את הטווח ממנו ברצונך להסיר את כל התווים שאינם אלפביתיים.

2. לחץ על Developer > Visual Basic, חלון חדש של Microsoft Visual Basic עבור יישומים יוצג, לחץ על Insert > Module, ולאחר מכן הזן את הקוד הבא במודול:

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

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

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

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

הסרת תווים שאינם אלפביתיים מהתאים במהירות עם Kutools for Excel

אם אינך רוצה להסיר את כל התווים שאינם אלפביתיים באמצעות מאקרו VBA, ייתכן שתרצה להשתמש בכלי Delete Characters עבור Kutools for Excel.

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

לאחר התקנת Kutools for Excel, תוכל בקלות ובנוחות להסיר את כל התווים שאינם אלפביתיים מטווח תאים.

1. בחר את הטווח ממנו ברצונך להסיר את התווים שאינם אלפביתיים.

2. לחץ על Kutools > Text > Delete Characters.

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

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

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

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

• הסרת תווים אלפביתיים מהתאים
• הסרת תווים שאינם מספריים מהתאים
• הסרת תווים מספריים מהתאים
• הסרת תווים שאינם ניתנים להדפסה מהתאים
• הסרת הפסקות שורה במהירות
• הסרת תווים שאינם אלפא-נומריים