انتقل إلى المحتوى الرئيسي

كيفية إزالة النص فقط من الخلايا التي تحتوي على أرقام ونصوص في Excel؟

كما هو موضح أدناه ، بالنسبة إلى تلك الخلايا الممزوجة بالأرقام والنصوص ، كيف يمكن إزالة جميع النصوص والاحتفاظ بالأرقام فقط في الخلايا؟ الأساليب في هذه المقالة يمكن أن تساعدك.

قم بإزالة النص فقط من الخلايا التي تحتوي على أرقام ونصوص بوظيفة محددة من قبل المستخدم
قم بإزالة النص فقط بسهولة من الخلايا التي تحتوي على أرقام ونصوص باستخدام Kutools for Excel


قم بإزالة النص فقط من الخلايا التي تحتوي على أرقام ونصوص بوظيفة محددة من قبل المستخدم

يمكنك أيضًا استخدام الوظيفة المحددة من قبل المستخدم أدناه لإزالة النصوص من الخلايا المحددة والاحتفاظ بالأرقام فقط.

1. اضغط على قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ والصق رمز 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. اضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

4. حدد خلية فارغة ، أدخل الصيغة = OnlyNums (A2) في شريط الصيغة ، ثم اضغط على أدخل مفتاح للحصول على النتيجة. استمر في تحديد خلية النتيجة ، واسحب مقبض التعبئة لأسفل للحصول على جميع النتائج. انظر لقطة الشاشة:

ملاحظات: في الصيغة. A2 هي الخلية التي ستزيل النصوص وتحتفظ فيها بالأرقام فقط. من فضلك غيره كما تريد.

يمكنك الآن رؤية إزالة جميع النصوص ويتم الاحتفاظ بالأرقام فقط في خلايا محددة.


قم بإزالة النص فقط بسهولة من الخلايا التي تحتوي على أرقام ونصوص باستخدام Kutools for Excel

سيوصي هذا القسم بـ إزالة الأحرف فائدة كوتولس ل إكسيل. باستخدام هذه الأداة المساعدة ، يمكنك إزالة جميع الأحرف غير الرقمية من الخلايا بعدة نقرات فقط ، والاحتفاظ بالأرقام فقط في الخلايا. الرجاء القيام بما يلي.

قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.

1. حدد الخلايا التي تريدها لإزالة النصوص والاحتفاظ بالأرقام فقط ، ثم انقر فوق كوتولس > نص > إزالة الأحرف

2. في ال إزالة الأحرف مربع الحوار ، فقط تحقق من غير رقمي مربع ، ثم انقر فوق OK .

ثم تتم إزالة جميع الأحرف غير الرقمية (النصوص) من الخلايا المحددة على الفور كما هو موضح أدناه.

  إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.


مقالات لها صلة:

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour,

Si on veut conserver les virgules avec les chiffres, comment peut-on faire? Merci pour votre réponse
This comment was minimized by the moderator on the site
Hi Enzo,

Sorry I don't quite understand your question. For clarity, please attach a sample file or a screenshot with your data and desired results.
This comment was minimized by the moderator on the site
Hallo, zusammen
Ich finde die VBA super und genau das was ich für meinen Job benötige. Jedoch eine Frage an euch Spezialisten, wenn ich führende Nullen habe dann funktioniert die VBA bei mir nicht, gibt's da einen Trick damit dies auch geht? Grüße
This comment was minimized by the moderator on the site
Hi Rolands,
Sorry I don't quite understand what you mean. Do you want to keep the leading zeros after removing only the texts from cells?
Or you can upload a screenshot of your data here to describe the problem more clearly.
This comment was minimized by the moderator on the site
I have used excel for years but not a power worker never used Visual Basic in a spreadsheet before. This method worked absolutely first time just following the clear instructions above and saved me hours cleaning up an imported Sheet. Many thanks - much appreciated. Cheers
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations