علي عبد المنعم قام بنشر يناير 1, 2020 مشاركة قام بنشر يناير 1, 2020 برجاء المساعدة في تقسيم محتويات خلية الى عدة خلايا كما هو موضح بالمثال تقسيم عمود.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر يناير 1, 2020 أفضل إجابة مشاركة قام بنشر يناير 1, 2020 جرب هذا الماكرو 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 2 رابط هذا التعليق شارك More sharing options...
علي عبد المنعم قام بنشر يناير 2, 2020 الكاتب مشاركة قام بنشر يناير 2, 2020 شكرا للاستاذ سليم وللقائمين على المنتدي 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان