تقسيم عمود الى عدة اعمدة

[ابو الآء]

الرجاء المساعدة فى تقسيم عمود الى عده اعمده

وهل يمكن تحويل الى الى ملف اسماء للموبايل

تقسيم.xls

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

ليست المرة الاولى التي اذكر بأنه ليس من الضرورة ادراج بيانات كبيرة (اكثر من 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

[ابو الآء]

بارك الله فيك استاذى الفاضل 

والف شكر لك

 

[خيماوي كووول]

السلام عليكم ورحمة الله وبركاته

اثراء الموضوع .. عن طريق المعادلة ..

يوجد معادلتين .. في الشيت ..

TAKSIM_TO COL.xlsm

[ابو الآء]

شكرا لك استاذى الفاضل