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

كيفية إلغاء دمج الخلايا وتعبئتها بقيم مكررة في 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، ثم تم إلغاء دمج الخلايا المدمجة وملؤها تلقائيًا القيم المدمجة الأصلية.


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

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

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

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

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

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

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


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

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

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

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


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (47)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لإلغاء دمج وتكرار كود فبا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
باهِر !! كود VBA يعمل بشكل مثالي. أصلحت تصديري لمشكلة CSV :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عمل VBA بشكل رائع باستثناء أنني استخدمته لرقم مكون من 16 رقمًا ويقوم برنامج Excel بتحويل الرقم الأخير إلى "0". أي اقتراحات حول عمل حول ذلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كلتا الطريقتين تعملان بشكل جيد. شكرًا لك :-)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يا إلهي ، لقد وفرت لي الكثير من الوقت.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا رائع. منقذ الحياة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد أنقذني هذا ساعات لا تحصى ، شكرًا جزيلاً لك على هذا. لقد لاحظت شيئًا واحدًا صادفته مع Go To Special Command والذي أربكني لثانية واحدة. كنت بحاجة إلى البحث داخل المستند ، وتقوم وظيفة ctrl + enter بنسخ الرمز ، ولكن ليس القيمة. أوصي (إذا كنت تريد البحث كما فعلت) لنسخ الصف الذي تم دمجه ، ولصق قيم خاصة. سيؤدي ذلك إلى التخلص من الشفرة وإنشاء نص قابل للبحث فيه. شكرا لك مرة أخرى على هذه الحيلة الرائعة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عمل رائع. لكن طريقة الوظيفة عملت على الخير الأول في أول 2288 سطراً ، ثم بدون خطأ أو إشعار ، لم تفعل الأسطر بعد ذلك. لدي أكثر من 6000 سطر (صفوف). إذا حددت يدويًا أي نطاق يتجاوز السطر 2288 ، فلن تعمل طريقة الوظيفة. لسوء الحظ ، يقوم بائع البيانات بدمج الأسطر في تسليم بيانات Excel. أي اقتراحات؟ شكرا للمعلومات العظيمة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تعليماتك بسيطة مثل قوية !!! أنا مدين لك بالعشاء.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
سيدي لقد أنقذت حياتي ، أنت السبب في أنني قمت بوضع إشارة مرجعية على هذه الصفحة :) !!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مفيد للغاية! شكرًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مفيد جدا..! شكراً جزيلاً.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد صنعت أسبوعي! 8)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا لك هذا منشور مفيد جدا. انها حقا توفر لي الكثير من الوقت
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا على الحل الخاص بك ...
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مدهش! استمر في العمل الجيد!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا مفيد حقًا ولكن لدي سؤال واحد. هل هناك طريقة لتعديل التعليمات البرمجية لـ VBA لتخطي الخلايا المدمجة الفارغة؟ أريد فقط عدم دمج الخلية وتكرارها إذا كانت هناك قيمة أخرى غير فارغة. أنا متأكد من أن الأمر لن يستغرق أكثر من عبارة if / else أو بيانين ، فأنا غبي جدًا للقيام بذلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شرح جميل جدا مع لقطة الشاشة .... شكرا جزيلا ...
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنقذ حياتي! شكرا جزيلا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا جيد. وفر الكثير من الوقت شكرا
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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