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

كيفية دمج محتويات خلايا متعددة دون فقدان البيانات في 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. ثم اضغط دوك-ضرب-حساب -3 زر لتنفيذ الكود. ينبثق مربع حوار لك لتحديد نطاق للعمل مع VBA. انظر لقطات الشاشة:

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

تجمع الوثيقة بين محتويات الخلية 2

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

تجمع الوثيقة بين محتويات الخلية 3


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

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

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

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

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

تجمع الوثيقة بين محتويات الخلية 5

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

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

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

  إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30-يوم) من هذه الأداة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.


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


عرض توضيحي: دمج / دمج عدة خلايا في خلية واحدة دون فقد البيانات


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

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

فرز التعليقات حسب
التعليقات (7)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مفيد جدًا ، شكرًا لأنك استغرقت بعض الوقت للعثور عليه ولكن كان هذا ما احتاجه بالضبط. لاحظ في التعليمات البرمجية لـ VBA إذا كنت تريد فصل البيانات بفاصلة منقوطة أو فاصلة أو بعض الأحرف الأخرى في الحقل "delim =" "" ضع علامة بين مثال علامات الاقتباس: delim = "؛". شكرًا لك مرة أخرى.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Thamks كثيرًا عن الكود. كانت مفيدة جدا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا - كانت مساعدة كبيرة!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيفية دمج خليتين على سبيل المثال: - [a2: 1] [B41.00: kWh] [C1: 1 kWh]
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مدهش! يساعد كثيرا! شكرا جزيلا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف كرر العملية إذا كان لدي 4 مراجع مختلفة وأحتاج إلى دمجها واحدة تلو الأخرى
تم تصغير هذا التعليق بواسطة المشرف على الموقع
استفساري السابق حول هذا vba: Sub MergeOneCell () 'Updateby20140128 Dim Rng As Range Dim WorkRng كنطاق خافت تنهد كسلسلة عند الخطأ ، استئناف التالي xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox ("النطاق "، xTitleId، WorkRng.Address، النوع: = 8) التنهد = 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 Between ، ما هو النوع هنا ، "8 تشير "&" 2 إلى
لا توجد تعليقات منشورة هنا حتى الآن

تواصل معنا

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