وعليكم السلام-كان عليك إستخدام خاصية البحث بالمنتدى قبل رفع مشاركتك -تفضل
طريقة توزيع رقم من خلية واحدة الى مجموعة خلايا
وهذا كود أخر يمكنك أيضاً إستخدامه
Sub SplitStuff()
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In InputRng
xValue = Rng.Value
xRow = Rng.Row
For i = 1 To VBA.Len(xValue)
OutRng.Cells(xRow, i).Value = VBA.Mid(xValue, i, 1)
Next
Next
Application.ScreenUpdating = True
End Sub
أو يمكنك أيضاً استخدام هذه المعادلة اذا كان الرقم القومى مثلاً موجود بالخلية A1
=MID($A1,COLUMNS($A$1:A$1),1)