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

[علي عبد المنعم]

برجاء المساعدة في تقسيم محتويات خلية الى عدة خلايا كما هو موضح بالمثال

تقسيم عمود.xlsx

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

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

Option Explicit

Sub divise_cells()
Dim i%: i = 1
Dim dic As Object
Dim itm, k, m%: m = 1
Range("c1").CurrentRegion.ClearContents
Set dic = CreateObject("Scripting.Dictionary")

Do Until Range("a" & i) = vbNullString
  dic(i) = Split(Range("a" & i), ",")
  i = i + 1
  Loop

For Each itm In dic.items
    Cells(m, 3).Resize(, UBound(itm) + 1) = itm
    m = m + 1
 Next
 dic.RemoveAll: Set dic = Nothing
End Sub

 

 

Taksim.xlsm

[علي عبد المنعم]

شكرا للاستاذ سليم وللقائمين على المنتدي