كيفية إزالة أو حذف جميع النصوص أو الأحرف التي يتوسطها خط من الخلايا في إكسيل؟

تتناول هذه المقالة إزالة جميع النصوص أو الأحرف التي يتوسطها خط من خلايا متعددة في Excel.

قم بإزالة جميع النصوص التي يتوسطها خط من الخلايا ذات التعليمات البرمجية لـ VBA

قم بإزالة جميع النصوص التي يتوسطها خط من الخلايا ذات التعليمات البرمجية لـ VBA

مدهش! استخدام علامات التبويب الفعالة في Excel مثل Chrome وEdge وFirefox وSafari!
وفر 50٪ من وقتك ، وقلل آلاف النقرات بالماوس كل يوم!

يمكن أن يساعدك رمز VBA أدناه في إزالة جميع النصوص في الخلايا التي تم تمييزها بخط يتوسطه خط. الرجاء القيام بما يلي.

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

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، الرجاء الضغط أقحم > وحدة. ثم انسخ والصق رمز فبا أدناه في نافذة الكود.

كود فبا: قم بإزالة جميع النصوص التي يتوسطها خط من الخلايا

Sub DelStrikethroughText()
    Dim xRg As Range, xCell As Range
    Dim xStr As String
    Dim I As Long
    On Error Resume Next
    Set xRg = Application.InputBox("Please select range：", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = Fase
        For Each xCell In xRg
            If IsNumeric(xCell.Value) And xCell.Font.Strikethrough Then
                xCell.Value = ""
            ElseIf Not IsNumeric(xCell.Value) Then
                For I = 1 To Len(xCell)
                    With xCell.Characters(I, 1)
                        If Not .Font.Strikethrough Then
                            xStr = xStr & .Text
                        End If
                    End With
                Next
                xCell.Value = xStr
                xStr = ""
            End If
        Next
    Application.ScreenUpdating = True
End Sub

3. اضغط على F5 مفتاح أو انقر فوق يجري زر لتشغيل الكود. في ظهرت Kutools for Excel مربع الحوار ، يرجى تحديد النطاق الذي يحتوي على النصوص التي يتوسطها خط ستزيلها ، ثم انقر فوق OK زر. انظر لقطة الشاشة:

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

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

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

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

	الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة
	سوبر بحث: معايير متعددة 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٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ...