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

كيفية دمج كل صف / خلية أخرى في إكسيل؟

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


دمج كل صف / خلية أخرى مع الصيغة في إكسيل

دمج كل صف / خلية أخرى مع VBA

علامة تبويب Office تمكن من التحرير والتصفح المبوب في المكتب ، واجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ والمخططات الأكثر استخدامًا أو تعقيدًا وأي شيء آخر إلى مفضلاتك ، وأعد استخدامها بسرعة في المستقبل.
  • أكثر من 20 ميزة نصية: استخراج رقم من سلسلة نصية ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية.
  • أدوات الدمج: مصنفات وأوراق متعددة في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقد البيانات ؛ دمج الصفوف المكررة والمجموع.
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد لملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة.
  • لصق التخطي صفوف مخفية / مصفاة العد والمجموع حسب لون الخلفية؛ إرسال رسائل بريد إلكتروني مخصصة إلى مستلمين متعددين بشكل مجمع.
  • مرشح سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ تصنيف حسب: حسب الأسبوع واليوم والتكرار والمزيد ؛ تصفية بواسطة bold، formulas، comment ...
  • أكثر من 300 ميزة قوية ؛ يعمل مع Office 2007-2021 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.

السهم الأزرق الحق فقاعة دمج كل صف / خلية أخرى مع الصيغة في إكسيل

حدد خلية فارغة واكتب =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) (يشير $ 1 إلى البيانات الأولى في قائمتك ، يمكنك تغييرها حسب حاجتك) ، ثم اضغط على مفتاح Enter. ثم اسحب مقبض التعبئة لملء النطاق الذي تحتاجه لتطبيق هذه الصيغة. انظر لقطة الشاشة:



السهم الأزرق الحق فقاعة دمج كل صف / خلية أخرى مع VBA

إذا كنت معتادًا على استخدام VBA ، فيمكنك أيضًا تشغيل VBA أدناه لدمج كل صف آخر.

1. معلق ALT زر واضغط F11 على لوحة المفاتيح لفتح ملف Microsoft Visual Basic للتطبيق نافذة.

2. انقر إدراج > وحدة، وانسخ VBA في الوحدة النمطية.

فبا: دمج كل صف / خلية أخرى

Sub CombineCells()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
For i = 1 To InputRng.Rows.Count Step 2
    For j = 1 To InputRng.Columns.Count
        OutRng.Value = InputRng.Cells(i, j).Value & InputRng.Cells(i + 1, j).Value
        Set OutRng = OutRng.Offset(0, 1)
    Next
    Set OutRng = OutRng.Offset(1, (InputRng.Columns.Count * -1))
Next
End Sub         

 

3. انقر يجري لتشغيل التعليمات البرمجية لـ VBA ، و كوتولسفورإكسيل ينبثق مربع الحوار لك لتحديد نطاق من الخلايا التي تريد دمج كل صف آخر. انظر لقطة الشاشة:


4. انقر OK، يتم عرض مربع حوار آخر لتحديد خلية واحدة لإخراج النتيجة المدمجة. انظر لقطة الشاشة:


5. انقر OK، ويمكنك مشاهدة النتيجة:



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

فرز التعليقات حسب
التعليقات (0)
لا يوجد تقييم. كن أول من يقيم!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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