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

كيفية دمج محتويات خلايا متعددة دون فقدان البيانات في 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 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 (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
my earlier query is about this vba: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 Between, what does the type here, "8" & "2" refers to
This comment was minimized by the moderator on the site
how repeat the process if i have 4 different reference and need to combine them one after the other
This comment was minimized by the moderator on the site
Awesome! Greatly helps! Thank you so much!
This comment was minimized by the moderator on the site
how to merge 2 cell ex:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
This comment was minimized by the moderator on the site
Thanks very much - was a big help!
This comment was minimized by the moderator on the site
Thamks a lot for the code. Was very helpful.
This comment was minimized by the moderator on the site
Very helpful thank you took me a while to find it but was just what I needed. Note in the VBA code if you want to seperate data with a semicolon, comma or some other charater in the "delim = " " " field put you charater betwen the quotes example: delim = ";". Thanks again.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations