hanafymahmood قام بنشر يناير 24, 2020 مشاركة قام بنشر يناير 24, 2020 المطلوب دمج ثلاثة صفوف على الترتيب فى صف واحد بحيث أتمكن من ذلك فى ملف به مئات الصفوف والمثال مرفق 1.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر يناير 24, 2020 أفضل إجابة مشاركة قام بنشر يناير 24, 2020 جرب هذا الماكرو 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 2 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 24, 2020 مشاركة قام بنشر يناير 24, 2020 ماكرو اخر يقوم بنفس العمل 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 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر يناير 24, 2020 مشاركة قام بنشر يناير 24, 2020 أستاذ hanafymahmood أين الضغط على الإعجاب ؟!💙 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.