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