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

كيفية مسح محتويات عدة خلايا مدمجة في إكسيل؟

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

امسح محتويات عدة خلايا مدمجة برمز VBA

امسح محتويات الخلايا المدمجة المتعددة باستخدام Kutools for Excel


السهم الأزرق الحق فقاعة امسح محتويات عدة خلايا مدمجة برمز VBA

في هذا القسم ، يمكنني إنشاء رمز VBA من أجلك لحل هذه المهمة ، يرجى القيام بما يلي:

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

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

فبا: امسح محتويات عدة خلايا مدمجة

Sub ClearMerged()
'updateby Extendoffice
    Dim Rg As Range, Rg1 As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set Rg = Application.InputBox("Please select the range of cells:", "Kutools for Excel", xAddress, , , , , 8)
    If Rg Is Nothing Then Exit Sub
    For Each Rg1 In Rg
        If Rg1.MergeCells Then Rg1.MergeArea.ClearContents
    Next
End Sub

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

doc محو الخلايا المدمجة 1

4. ثم انقر فوق OK، تم مسح المحتويات الموجودة في الخلايا المدمجة مرة واحدة وترك الخلايا المدمجة الفارغة ، انظر الصورة:

doc محو الخلايا المدمجة 2


السهم الأزرق الحق فقاعة امسح محتويات الخلايا المدمجة المتعددة باستخدام Kutools for Excel

إذا كان لديك كوتولس ل إكسيل، بما لديها حدد الخلايا المدمجة الأداة المساعدة ، يمكنك تحديد جميع الخلايا المدمجة في تحديد بنقرة واحدة ، ثم حذفها مرة واحدة.

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

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بما يلي: تحميل مجاني Kutools لبرنامج Excel الآن )

1. حدد نطاق الخلايا الذي يحتوي على الخلايا المدمجة التي تريد مسح المحتويات.

2. انقر كوتولس > أختار > حدد الخلايا المدمجة، انظر لقطة الشاشة:

3. وتم تحديد جميع الخلايا المدمجة على الفور ، انظر الصورة:

doc محو الخلايا المدمجة 4

4. ثم اضغط حذف على لوحة المفاتيح ، وتم تحديد جميع القيم الموجودة في الخلايا المدمجة ولكن اترك الخلايا المدمجة كما تريد.

انقر لمعرفة المزيد حول الأداة المساعدة لتحديد الخلايا المدمجة ...

تحميل مجاني Kutools لبرنامج Excel الآن

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

🤖 مساعد 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 (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Can you please provide VBA code to run this macro across the entire workbook?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations