كيف يمكن إزالة النص فقط من الخلايا التي تحتوي على أرقام ونص في Excel؟
كما هو موضح في لقطة الشاشة أدناه، إذا كانت الخلايا تحتوي على مزيج من الأرقام والنصوص، فكيف يمكنك إزالة كل النصوص والاحتفاظ بالأرقام فقط؟ تساعدك الطرق الموضَّحة في هذا المقال على تحقيق ذلك بسهولة.
إزالة النص فقط من الخلايا التي تحتوي على أرقام ونص باستخدام دالة معرّفة من قِبل المستخدم
إزالة النص فقط بسهولة من الخلايا التي تحتوي على أرقام ونص باستخدام Kutools لـ Excel
إزالة النص فقط من الخلايا التي تحتوي على أرقام ونص باستخدام دالة معرّفة من قِبل المستخدم
يمكنك أيضًا استخدام الدالة المعرَّفة من قِبل المستخدم أدناه لإزالة النصوص من الخلايا المحددة والاحتفاظ بالأرقام فقط.
1. اضغط معًا على مفاتيحAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. في نافذةMicrosoft Visual Basic for Applications، انقر فوقInsert > Module. بعد ذلك، انسخ ولصق كود VBA أدناه في نافذةCode. راجع لقطة الشاشة:
كود VBA: إزالة النص فقط من الخلايا التي تحتوي على أرقام ونص
Function OnlyNums(strWord As String)
Dim strChar As String
Dim x As Integer
Dim strTemp As String
strTemp = ""
Application.ScreenUpdating = False
For x = 1 To Len(strWord)
strChar = Mid(strWord, x, 1)
If Asc(strChar) >= 48 And _
Asc(strChar) <= 57 Then
strTemp = strTemp & strChar
End If
Next
Application.ScreenUpdating = True
OnlyNums = Val(strTemp)
End Function
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:B10")) Is Nothing Then Cancel = True
End Sub
3. اضغط على مفاتيحAlt + Q لإغلاق نافذةMicrosoft Visual Basic for Applications.
4. حدد خلية فارغة، وأدخل الصيغة=OnlyNums(A2) في شريط الصيغة، ثم اضغط على مفتاحEnter للحصول على النتيجة. بعد ذلك، استمر في تحديد خلية النتيجة واسحب مقبض التعبئة (Fill Handle) لأسفل للحصول على جميع النتائج. راجع لقطة الشاشة:
ملاحظة: في الصيغة، تمثّل الخلية A2 الخلية التي سيتم إزالة النصوص منها مع الاحتفاظ بالأرقام فقط. يُرجى تعديلها حسب الحاجة.
الآن يمكنك ملاحظة أن جميع النصوص قد أُزيلت، ولم يبقَ سوى الأرقام في الخلايا المحددة.
إزالة النص فقط بسهولة من الخلايا التي تحتوي على أرقام ونص باستخدام Kutools لـ Excel
يُوصي هذا القسم بأداةحذف الأحرف المحددةمنKutools لـ Excel. باستخدام هذه الأداة، يمكنك إزالة جميع الأحرف غير الرقمية من الخلايا بنقراتٍ قليلة فقط، والاحتفاظ بالأرقام في الخلايا. يُرجى اتباع الخطوات التالية.
1. حدد الخلايا التي تريد إزالة النصوص منها والاحتفاظ بالأرقام فقط، ثم انقر فوقKutools > Text > حذف الأحرف المحددة.
2. في مربع حوارحذف الأحرف المحددة، حدد خانة الاختيارNon-numeric فقط، ثم انقر فوق زرOK.
تُزال جميع الأحرف غير الرقمية فورًا من الخلايا المحددة، كما يظهر في لقطة الشاشة أدناه.
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
مقال ذو صلة:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل