كيفية دمج محتويات خلايا متعددة دون فقدان البيانات في Excel؟

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

اجمع عدة خلايا في خلية واحدة باستخدام كود VBA
اجمع بين خلايا متعددة في خلية واحدة باستخدام Kutools for Excel دون فقد البيانات

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

يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية على دمج عدة خلايا في خلية واحدة ، ويمكنك تطبيق التعليمات البرمجية من خلال الخطوات التالية:

1. انقر المطور > Visual Basic، جديد Microsoft Visual Basic للتطبيقات سيتم عرض النافذة ، انقر فوق إدراج > وحدة، وأدخل الكود التالي في الوحدة النمطية:

Sub MergeOneCell()
'Updateby20140128
Dim Rng As Range
Dim WorkRng As Range
Dim Sigh As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Sigh = Application.InputBox("Symbol merge", xTitleId, "", Type:=2)
xOut = ""
Application.DisplayAlerts = False
For Each Rng In WorkRng
    xOut = xOut & Rng.Value & Sigh
Next
With WorkRng
    .Merge
    .Value = VBA.Left(xOut, VBA.Len(xOut) - 1)
End With
Application.DisplayAlerts = True
End Sub

2. ثم اضغط زر لتنفيذ الكود. ينبثق مربع حوار لك لتحديد نطاق للعمل مع VBA. انظر لقطات الشاشة:

3. انقر Ok، يتم عرض مربع حوار آخر لتحديد الفاصل. انظر لقطة الشاشة:

4. انقر Ok، ثم يتم دمج محتويات الخلية في النطاق المحدد في خلية. انظر لقطة الشاشة:

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

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

1. حدد الخلايا التي تريد دمج البيانات. وقم بتطبيق هذه الأداة بالضغط كوتولس > دمج وتقسيم > ادمج الصفوف أو الأعمدة أو الخلايا دون فقد البيانات.

2. في ادمج الأعمدة أو الصفوف مربع الحوار ، حدد الخيارات التي تحتاجها. انظر لقطة الشاشة:

• (1.) حدد اجمع في خلية واحدة تحت لدمج الخلايا المحددة وفقًا للخيارات التالية;
• (2.) حدد فاصلًا للبيانات المدمجة. يمكنك فصل كل محتوى بمسافة أو لا شيء أو فاصلة منقوطة أو نص محدد. ويمكنك أيضًا عرض المحتوى المدمج في سطر جديد.

3. ثم اضغط OK or تطبيق، تم دمج جميع البيانات الموجودة في عدة خلايا في خلية واحدة. انظر لقطة الشاشة:

ملاحظة: يمكن أن تساعد هذه الأداة أيضًا في دمج خلايا الأعمدة المحددة. يمكنك دمج الاسم الأول والأخير في خلية اسم كامل واحدة كما هو موضح أدناه.

بعد ذلك يمكنك رؤية الأسماء الأولى وأسماء العائلة مدمجة وموجودة في خلايا الاسم الكامل.

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

• كيفية دمج الأعمدة دون فقدان البيانات في 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٪ ، ويقلل مئات النقرات بالماوس كل يوم!

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