اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

  • تمت الإجابة
قام بنشر

تفضل أخى

Sub ragab()
LR = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To LR
    For ii = 0 To UBound(Split(Cells(i, 1), "-"))
        Cells(i, ii + 2) = Split(Cells(i, 1), "-")(ii)
    Next
Next
End Sub

فصل الخلية فى عدة خلايا1.rar

  • Like 5
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information