دمج ثلاثة صفوف على الترتيب فى صف واحد

[hanafymahmood]

المطلوب دمج ثلاثة صفوف على الترتيب فى صف واحد بحيث أتمكن من ذلك فى ملف به مئات الصفوف

والمثال مرفق

1.rar

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

جرب هذا الماكرو

Option Explicit
Sub Join_by_three()
Dim my_rg As Range
Dim lr%, i%, col%, m%, k%
col = Cells(1, Columns.Count).End(1).Column
lr = Range("a2", Range("A1")).End(4).Row
m = lr + 2
Range("a" & m).Resize(10000, 3 * col).Clear
For i = 1 To lr Step 3
  For k = 0 To 2
   Range("a" & i + k).Resize(, col).Copy _
   Range("a" & m).Offset(, k * col)
  Next k
 m = m + 1
 Next i

End Sub

 

 

MY_one_file.xlsm

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

ماكرو اخر يقوم بنفس العمل

Option Explicit
Sub Join_by_three_by_Loops()
Dim my_rg As Range
Dim lr%, i%, col%, m%, k%
col = Cells(1, Columns.Count).End(1).Column
lr = Range("A2", Range("A1")).End(4).Row
m = lr + 2
Range("A" & m).CurrentRegion.Clear
i = 1
 Do Until i > lr
  k = 0
    Do While k < 3
      Range("A" & i + k).Resize(, col).Copy _
      Range("A" & m).Offset(, k * col)
      k = k + 1
     Loop
        m = m + 1
        i = i + 3
 Loop

End Sub

 

 

[أحمد يوسف]

أستاذ

hanafymahmood

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