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

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

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


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

دمج كل صف / خلية أخرى مع 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، ويمكنك مشاهدة النتيجة:



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

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations