كيفية دمج كل صف / خلية أخرى في إكسيل؟
إذا كانت لديك قائمة بالبيانات ، وتريد دمج كل صف أو خلية أخرى منها كما هو موضح أدناه ، فهل تعرف كيفية القيام بذلك؟ في Excel ، يمكنك استخدام الصيغة أو VBA لدمج كل صف أو خلايا أخرى.
دمج كل صف / خلية أخرى مع الصيغة في إكسيل
دمج كل صف / خلية أخرى مع الصيغة في إكسيل
حدد خلية فارغة واكتب =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، ويمكنك مشاهدة النتيجة: