كيفية إلغاء دمج الخلايا وتعبئتها بقيم مكررة في Excel؟

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

قم بإلغاء دمج الخلايا واملأها ببيانات مكررة باستخدام الأمر Go To Special

قم بإلغاء دمج الخلايا وتعبئتها ببيانات مكررة برمز VBA

قم بإلغاء دمج الخلايا واملأها ببيانات مكررة بنقرة واحدة

قم بإلغاء دمج الخلايا واملأها ببيانات مكررة باستخدام الأمر Go To Special

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

1. حدد الأعمدة التي تحتوي على خلايا مدمجة.

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

3. وتم إلغاء دمج الخلايا المدمجة وسيتم ملء الخلية الأولى فقط بالقيم الأصلية. ثم حدد النطاق مرة أخرى.

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

5. ثم انقر فوق OK، تم تحديد كافة الخلايا الفارغة في النطاق. ثم أدخل = والصحافة Up مفتاح السهم على لوحة المفاتيح. انظر لقطة الشاشة:

6. ثم اضغط كترل + إنتر مفاتيح ، تم ملء جميع الخلايا الفارغة بالبيانات المدمجة الأصلية. انظر لقطة الشاشة:

قم بإلغاء دمج الخلايا وتعبئتها ببيانات مكررة برمز VBA

باستخدام رمز VBA التالي ، يمكنك إلغاء دمج الخلايا بسرعة وتعبئة القيم.

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

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

Sub UnMergeSameCell () 'Upadateby Extendoffice
Dim Rng كنطاق ، xCell As Range xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox ("Range"، xTitleId، WorkRng.Address، Type: = 8) Application.ScreenUpdating = False Application.DisplayAlerts = خطأ لكل Rng في WorkRng If Rng.MergeCells ثم مع Rng.MergeArea .UnMerge .Formula = Rng.Formula ينتهي مع نهاية إذا كان التالي Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

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

4. انقر OK، ثم تم إلغاء دمج الخلايا المدمجة وملؤها تلقائيًا القيم المدمجة الأصلية.

قم بإلغاء دمج الخلايا واملأها ببيانات مكررة بنقرة واحدة

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

بعد تثبيت كوتولس ل إكسيل، يمكنك القيام بما يلي:

1. حدد الأعمدة التي تريد إلغاء دمجها واملأ البيانات.

2. انقر كوتولس > دمج وتقسيم > قم بإلغاء دمج الخلايا وتعبئة القيمة، انظر لقطة الشاشة:

3. وتم إلغاء دمج الخلايا المدمجة وتعبئتها بالقيم المكررة مرة واحدة. انظر لقطات الشاشة:

قم بإلغاء دمج الخلايا واملأها ببيانات مكررة باستخدام Kutools for Excel

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

دمج الصفوف المتجاورة مع نفس البيانات في Excel

---

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

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

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

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

---

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

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

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