با سلام
فعلا شماره موبایلها از اسم جدا گردید چنانچه تمایل دارید هر شماره در یک سلول قرار گیرد اطلاع دهید
کد PHP:
Sub test3()
Dim employee As String, total As Integer, sheet As Worksheet, i, j, y As Integer, rng As Range
For Each sheet In Worksheets
sheet.Select
k = Cells(Rows.Count, "d").End(xlUp).Row
For j = 2 To k
OutValue = ""
xValue = Range("d" & j).Value
For i = 1 To Len(xValue)
If IsNumeric(Mid(xValue, i, 1)) Then
OutValue = OutValue & Mid(xValue, i, 1)
If Not IsNumeric(Mid(xValue, i + 1, 1)) Then
OutValue = OutValue & " "
End If
End If
Next
Range("j" & j).Value = OutValue
Next
Next
End Sub
علاقه مندی ها (Bookmarks)