ابو الآء قام بنشر يناير 22, 2021 مشاركة قام بنشر يناير 22, 2021 الرجاء المساعدة فى تقسيم عمود الى عده اعمده وهل يمكن تحويل الى الى ملف اسماء للموبايل تقسيم.xls رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر يناير 22, 2021 أفضل إجابة مشاركة قام بنشر يناير 22, 2021 ليست المرة الاولى التي اذكر بأنه ليس من الضرورة ادراج بيانات كبيرة (اكثر من 5000 صف) لأن الماكرو الذي يعمل على خلية واحدة يستطيع العمل على الوف الالوف منها Sub Row_to_column() Dim Ro%, I%, m%, K% With Sheets("MAIN") Ro = .Cells(Rows.Count, 1).End(3).Row .Range("C2", Range("E1").End(4)).ClearContents m = 2 For I = 2 To Ro Step 3 For K = 0 To 2 .Cells(m, 3).Offset(, K) = _ .Cells(I, 1).Offset(K) Next K m = m + 1 Next I End With End Sub الملف مرفق TAKSIM_TO COL.xlsm 1 رابط هذا التعليق شارك More sharing options...
ابو الآء قام بنشر يناير 22, 2021 الكاتب مشاركة قام بنشر يناير 22, 2021 بارك الله فيك استاذى الفاضل والف شكر لك رابط هذا التعليق شارك More sharing options...
خيماوي كووول قام بنشر يناير 22, 2021 مشاركة قام بنشر يناير 22, 2021 السلام عليكم ورحمة الله وبركاته اثراء الموضوع .. عن طريق المعادلة .. يوجد معادلتين .. في الشيت .. TAKSIM_TO COL.xlsm 2 رابط هذا التعليق شارك More sharing options...
ابو الآء قام بنشر يناير 23, 2021 الكاتب مشاركة قام بنشر يناير 23, 2021 شكرا لك استاذى الفاضل رابط هذا التعليق شارك 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.