Large Number more than 18 Number

[elharbia]

I have inquiry ,, I have serials of Sim Cards like 8930410717166677655 & 8930410717166677656
and i have like 300 number serialized to 8930410717166677955
Now how to used fill down by excel
[TABLE="width: 264"]
<colgroup><col><col></colgroup><tbody>[TR]
[TD]No.[/TD]
[TD]Serial Number[/TD]
[/TR]
[TR]
[/TR]
[TR]
[TD]1[/TD]
[TD]8930410717166677655[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]8930410717166677655[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]8930410717166677655[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]8930410717166677655[/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]8930410717166677655[/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD]8930410717166677655[/TD]
[/TR]
[TR]
[TD]7[/TD]
[TD]8930410717166677655[/TD]
[/TR]
[TR]
[TD]8[/TD]
[TD]8930410717166677655[/TD]
[/TR]
[TR]
[TD]9[/TD]
[TD]8930410717166677655[/TD]
[/TR]
[TR]
[TD]10[/TD]
[TD]8930410717166677655[/TD]
[/TR]
[TR]
[TD]11[/TD]
[TD]8930410717166677655[/TD]
[/TR]
[TR]
[TD]12[/TD]
[TD]8930410717166677655[/TD]
[/TR]
[TR]
[TD]13[/TD]
[TD]8930410717166677655[/TD]
[/TR]
[TR]
[TD]14[/TD]
[TD]8930410717166677655[/TD]
[/TR]
[TR]
[TD]15[/TD]
[TD]8930410717166677655[/TD]
[/TR]
[TR]
[TD]16[/TD]
[TD]8930410717166677655
[/TD]
[/TR]
[TR]
[TD]17[/TD]
[TD]8930410717166677655[/TD]
[/TR]
[TR]
[TD]18[/TD]
[TD]8930410717166677655[/TD]
[/TR]
[TR]
[TD]19[/TD]
[TD]8930410717166677655[/TD]
[/TR]
</tbody>[/TABLE]

 

[Rick Rothstein]

Here is a way to do it with a macro. Put the SIM card number into a cell in either one of these ways... either format the cell as Text, put the number into the Formula Bar and hit enter or type an asterisk into the cell and then type or copy the number after it. Once you have the 18-digit number in the cell, select that cell and run the macro. The first thing the macro will do is ask how many cells under the selected cell you want to fill down serially. Once you answer the question, the macro will fill in that number of cells with the serialized SIM numbers.

[table="width: 500"]
[tr]
	[td]Sub FillDownSIMcards()
  Dim R As Long, Ans As Variant, SIM As Variant
  Ans = Application.InputBox("Fill down how many rows from selected cell?", Type:=1)
  If IsNumeric(Ans) Then
    SIM = CDec(ActiveCell.Value)
    For R = 1 To Ans
      SIM = CDec(SIM) + 1
      ActiveCell.Offset(R).NumberFormat = "@"
      ActiveCell.Offset(R).Value = Format$(SIM, "000000000000000000")
    Next
  End If
End Sub[/td]
[/tr]
[/table]