فصل الارقام من بعضها فى خانات منفصلة

[الخطيب بيبوو]

السلام عليكم ورحمة الله وبركاته   ..اريد فصل الارقام من بعضها كلا فى خلية منفصلة بالعمود K  كما بالمثال

Book2.xlsm

[ابراهيم الحداد]

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

جرب هذا الكود

Sub ConTxtNum()
Dim ws As Worksheet, C As Range
Dim i As Long, j As Long
Dim Arr, Tmp, Txt As String
Set ws = Sheets("Sheet1")
Application.ScreenUpdating = False
For Each C In ws.Range("K6:K" & ws.Range("K" & Rows.Count).End(3).Row)
For i = 1 To Len(C)
Txt = Mid(C, i, 1)
If Txt Like "[0-9]" Or Txt = "0" Then
Arr = Arr & Txt
Else
Arr = Arr & " "
End If
Next

Arr = Application.WorksheetFunction.Trim(Arr)
Tmp = Split(Arr, " ")
For j = 0 To UBound(Tmp)
C.Offset(0, j + 2) = Tmp(j)
Arr = ""
Next
Next
Application.ScreenUpdating = True
End Sub

 

[الخطيب بيبوو]

يسلم كل رجال اسوان المحترمين