كيفية إزالة الأحرف الرقمية من الخلايا في إكسيل؟
يقول أن لديك ورقة عمل تحتوي على الكثير من هذه المعلومات جيمس 987دين، تحتوي البيانات على أحرف أبجدية وأحرف رقمية ، وتريد الاحتفاظ بأحرف ألفا وإزالة الأحرف الرقمية لجميع هذه البيانات. مثل التحويل جيمس 987دين إلى جيمسدين. هل هناك طرق سريعة للتعامل معها؟
قم بإزالة الأحرف الرقمية برمز VBA
قم بإزالة الأحرف الرقمية بسرعة باستخدام Kutools for Excel
قم بإزالة الأحرف الرقمية برمز VBA
إذا كنت معتادًا على رمز VBA ، فيمكنك استخدام هذه الطريقة من خلال الخطوات التالية:
1. انقر المطور > Visual Basic أو باستخدام الاختصارات (ALT + F11) في Excel لتنشيط نافذة Microsoft Visual Basic للتطبيقات ، ثم انقر فوق إدراج > وحدة.
2. أدخل الكود التالي في الوحدة النمطية:
Sub RemoveNum()
'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 "[0-9.]" Then
xStr = ""
Else
xStr = xTemp
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
4. ثم اضغط زر لتطبيق الكود. ظهر Adialog على الشاشة ، يمكنك تحديد نطاق لإزالة جميع الأحرف الرقمية. انظر لقطة الشاشة:
5. انقر Ok تم حذف جميع الأحرف الرقمية.
قم بإزالة الأحرف الرقمية بسرعة باستخدام Kutools for Excel
حذف الأحرف أداة كوتولس ل إكسيل هي أداة قوية لحذف أنواع متعددة من الشخصيات.
م>كوتولس ل إكسيل: مع أكثر من 80 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. احصل عليه الآن
الرجاء تطبيق هذه الأداة عن طريق النقر كوتولس > أدوات النص > إزالة الأحرف، انظر لقطة الشاشة:
الخطوة 1. حدد النطاق الذي تريد العمل به.
الخطوة شنومكس. انقر كوتولس > أدوات النص > إزالة الأحرف، و تأكد رقمية، انظر لقطة الشاشة:
الخطوة شنومكس. انقر Ok or التقديم لحذف الأحرف الرقمية في النطاقات.
ملاحظات: باستخدام هذه الأداة ، يمكننا أيضًا حذف أنواع الأحرف الأخرى ، مثل أحرف ألفا والأحرف غير الرقمية والأحرف غير الأبجدية والأحرف غير المطبوعة. لمزيد من المعلومات التفصيلية حول حذف الأحرف، يرجى زيارة هنا.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!