استخراج بيانات من خلية واحدة

[hakeemeldeen01515]

الشيت المرفق الخلية B

بها اسم ورقم بطافة وتاريخ ومبلغ

المطلوب خليه لكل بند

الارقام.xlsx

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

جرب هذا الكود

Option Explicit

Sub Split_cel()
Dim i%, k%, St, mot, t%
With Sheets("Sheet1")
    .Range("C2").CurrentRegion.ClearContents
    i = 2
    Do Until .Cells(i, 1) = vbNullString
         mot = Trim(.Cells(i, 1))
         St = Split(mot)
           For k = 0 To UBound(St)
              If St(k) <> vbNullString Then
                .Cells(i, 3).Offset(, t) = St(k)
                t = t + 1
              End If
          Next
        t = 0
        i = i + 1
    Loop
End With
End Sub

الملف مرفق

Hakim.xlsm