دمج بيانات صفين في صف واحد

[عفرنس]

أريد دمج بيانات صفيت في صف واحد 

UserpasswordDeliveringReport.xlsx

[سليم حاصبيا]

جرب هذا الماكرو  (النتيجة في شيت "Salim"

Option Explicit
Sub Every_two()
Dim my_max%, i%, k%
my_max = Sheets("Main").Cells(Rows.Count, 3).End(3).Row
Sheets("Salim").Cells(1, 1).CurrentRegion.ClearContents
k = 1
    For i = 1 To my_max Step 2
        With Sheets("Main").Cells(i, 3)
          Sheets("Salim").Cells(k, 1) = _
          .Value & " " & .Offset(1)
          k = k + 1
        End With
    Next
End Sub

الملف مرفق

 

two_in_One.xlsm

[أحمد يوسف]

استاذ emam1424

أين الضغط على الإعجاب ؟!!💙