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

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


إذهب إلى أفضل إجابة Solved by ابراهيم الحداد,

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

  • أفضل إجابة

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

جرب هذا الكود

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

 

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

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

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

Important Information