Note: The other languages of the website are Google-translated. Back to English

كيفية إزالة بعض الأحرف الخاصة من سلسلة في Excel؟

إذا كان هناك بعض الأحرف الخاصة مثل ٪ ^ & * () ضمن سلاسل النص ، والآن ، تريد إزالة هذه الأحرف المحددة من سلاسل الخلايا. لإزالتها واحدة تلو الأخرى سيستغرق وقتًا طويلاً ، هنا ، سأقدم بعض الحيل السريعة لحل هذه المهمة في Excel.

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

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


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

يمكن أن يساعدك رمز VBA التالي في إزالة الأحرف المحددة التي تحتاجها ، يرجى القيام بما يلي:

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

2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.

رمز فبا: إزالة بعض الأحرف الخاصة من سلسلة نصية

Function RemoveSpecial(Str As String) As String
'updatebyExtendoffice 20160303
    Dim xChars As String
    Dim I As Long
    xChars = "#$%()^*&"
    For I = 1 To Len(xChars)
        Str = Replace$(Str, Mid$(xChars, I, 1), "")
    Next
    RemoveSpecial = Str
End Function

3. ثم احفظ وأغلق هذا الرمز ، عد إلى ورقة العمل ، وأدخل هذه الصيغة: = إزالة خاصة (A2) في خلية فارغة حيث تريد وضع النتيجة ، انظر لقطة الشاشة:

doc إزالة الأحرف الخاصة 1

4. ثم اسحب مقبض التعبئة لأسفل إلى الخلايا التي تريد تطبيق هذه الصيغة ، وجميع الأحرف الخاصة التي لا تحتاج إلى إزالتها من السلسلة النصية ، انظر لقطة الشاشة:

doc إزالة الأحرف الخاصة 2

ملاحظة: في الكود أعلاه ، يمكنك تغيير الأحرف الخاصة # $٪ () ^ * & لأي شخص آخر تريد إزالته.


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

كوتولس ل إكسيل's إزالة الأحرف يمكن أن تساعدك الميزة على إزالة الكل بسرعة الرقمية, ألفا, غير رقمي, غير ألفا, غير المطبوعة, شخصيات محددة أخرى من سلاسل نصية حسب حاجتك. انقر للتنزيل والإصدار التجريبي المجاني Kutools for Excel الآن!

doc إزالة الأحرف الخاصة 7

كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!


إذا لم تكن ماهرًا برمز VBA ، كوتولس ل إكسيلالصورة إزالة الأحرف يمكن أن تساعدك الأداة المساعدة على إنهاء هذه المهمة بسرعة وسهولة.

بعد تثبيت كوتولس ل إكسيليرجى ذلك على النحو التالي:

1. حدد السلاسل النصية التي تريد إزالة بعض الأحرف الخاصة بها.

2. انقر كوتولس > نص > إزالة الأحرف، انظر لقطة الشاشة:

3. في إزالة الأحرف مربع الحوار ، تحقق عرف الخيار تحت إزالة الأحرف قسم ، وأدخل الأحرف الخاصة التي تريد إزالتها ، انظر الصورة:

doc إزالة الأحرف الخاصة 4

4. ثم انقر فوق Ok or قم بالمشاركة ، الأحرف التي حددتها في ملف عرف تمت إزالة مربع النص من السلاسل النصية مرة واحدة ، انظر لقطات الشاشة:

doc إزالة الأحرف الخاصة 5 2 doc إزالة الأحرف الخاصة 6

انقر للتنزيل والإصدار التجريبي المجاني Kutools for Excel الآن!


كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!

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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (11)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الوظيفة GetWordWOSpecChar (Rng As Range)
لصق في وحدة VBA ، استخدم كصيغة
من ابتكار ديباك شارما
Arr = Array ("48" ، "49" ، "50" ، "51" ، "52" ، "53" ، "54" ، "55" ، _
"56" ، "57" ، "65" ، "66" ، "67" ، "68" ، "69" ، "70" ، "71" ، "72" ، "73" ، "74" ، "75 "، _
"76" ، "77" ، "78" ، "79" ، "80" ، "81" ، "82" ، "83" ، "84" ، "85" ، "86" ، "87" ، "88 "، _
"89" ، "90" ، "97" ، "98" ، "99" ، "100" ، "101" ، "102" ، "103" ، "104" ، "105" ، "106" ، _
"107" ، "108" ، "109" ، "110" ، "111" ، "112" ، "113" ، "114" ، "115" ، "116" ، "117" ، _
"118" ، "119" ، "120" ، "121" ، "122")

بالنسبة إلى i = 1 To Len (Rng.Value)
txt = منتصف (Rng.Value، i، 1)
بالنسبة إلى g = 1 إلى UBound (Arr)
إذا كانت txt = Chr (Arr (g)) ثم GetWord = Right (Rng.Value، Len (Rng.Value) - (i - 1)): الخروج من الوظيفة
التالي g
أنا القادم

نهاية وظيفة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
اهلا ياجماعة،

لقد قمت بتطبيق الكود = removespecial (A2) وهو يعمل بشكل مثالي في ورقة عمل واحدة ولكن في الآخر يعطيني # NAME غير صالح؟ خطأ.
لقد راجعت "خلايا التنسيق" وهي في وضع عام وقمت بنسخ نفس النص + الصيغة إلى كلتا ورقتي العمل ولكنها لن تعمل.
أي فكرة عن سبب هذا؟

شكراً وشكراً جزيلاً لك على هذا الرمز.
يوفر لي ساعات وساعات العمل!

مع تحياتي ، كيم
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حسنًا ، أتساءل ، هل تعمل فقط في ورقة العمل التي قمت بلصق الكود فيها في الأصل؟
بالنسبة لذلك ، يبدو أنه يعمل فقط ، وليس لأي مصنف جديد تفتحه
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا كيم
يمكن تطبيق التعليمات البرمجية لـ VBA في مصنف واحد فقط ، إذا كنت تريد تطبيقه في مصنف جديد ، فيجب عليك نسخ الرمز ولصقه في المصنف الجديد مرة أخرى.
شكرا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بدلاً من البحث عن أحرف خاصة معينة ، ماذا عن ما إذا كنت تريد البحث عن جميع الأحرف الخاصة واستبدالها. بمعنى آخر ، كيف تكتب البحث عن ليس أحد الأحرف التالية: "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا نيك،
هل تريد إزالة كافة أحرف ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 من الخلايا؟
نتطلع إلى ردكم ، شكرا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا ، أريد الاحتفاظ بـ "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789" فقط
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نيك ،
ربما يمكن أن يحل رمز VBA أدناه مشكلتك ، يرجى المحاولة:

Sub RemoveNotAlphasNotNum ()
خافت Rng كمدى
خافت WorkRng كنطاق
على خطأ استئناف التالي
xTitleId = "KutoolsforExcel"
تعيين WorkRng = Application.Selection
تعيين WorkRng = Application.InputBox ("النطاق" ، xTitleId ، WorkRng.Address ، النوع: = 8)
لكل Rng في WorkRng
xOut = ""
بالنسبة إلى i = 1 To Len (Rng.Value)
xTemp = منتصف (Rng.Value، i، 1)
إذا كان xTemp مثل "[az.]" أو xTemp Like "[AZ.]" أو xTemp Like "[0-9.]" ثم
xStr = xTemp
آخر
xStr = ""
إنهاء حالة
xOut = xOut & xStr
أنا القادم
Rng.Value = xOut
التالى
نهاية الفرعية


أتمنى أن يساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مع Emoji تحتاج إلى إزالة ، كيف؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا على هذا الرمز
الوظيفة RemoveSpecial (Str As String) كسلسلة
'تحديث بواسطةExtendoffice 20160303
خافت xChars كسلسلة
أنا خافت وطويلة
xChars = "# $٪ () ^ * &"
لأني = 1 إلى لين (xChars)
Str = استبدال $ (Str، Mid $ (xChars، I، 1)، "")
التالى
RemoveSpecial = شارع
نهاية وظيفة

لكن هل من الممكن أن يزيل نص معين؟ مثل "ab" و "abc" و "bc" وما إلى ذلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الفخامة .. خمس نجوم .. شكرا جزيلا
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL