تقسيم بيانات الخلية الرقمية والنصية

[hanafymahmood]

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

فى المثال المرفق اريد تقسيم بيانات الخلية الرقمية إلى اثنين وكذلك الخلية النصية

مع خالص الشكر 

1.xlsx

[lionheart]

Sub Test()
    Dim x, r As Long, i As Integer, ii As Integer
    Application.ScreenUpdating = False
        For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row
            x = Split(Application.Trim(Cells(r, 2).Value))
            ii = 0
            For i = LBound(x) To UBound(x)
                If x(i) <> "" Then Cells(r, 3 + ii).Value = Val(x(i)): ii = ii + 1
            Next i
            x = Split(Cells(r, 5).Value, Space(2))
            ii = 0
            For i = LBound(x) To UBound(x)
                If x(i) <> "" Then Cells(r, 6 + ii).Value = Trim(x(i)): ii = ii + 1
            Next i
        Next r
    Application.ScreenUpdating = True
End Sub

 

[hanafymahmood]

جزاكم الله خيرا 

هل من تطبيق على المثال

[lionheart]

Copy the code from my post. Go to excel worksheet and press Alt + F11 to login VBE editor then from Insert menu select Module and paste the code

Now back to the worksheet and press Alt + F8 and select the macro called Test. That's all

[hanafymahmood]

جزاكم الله خيرا تم تنفيذ الخطوات