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

No.	Serial Number
1	8930410717166677655
2	8930410717166677655
3	8930410717166677655
4	8930410717166677655
5	8930410717166677655
6	8930410717166677655
7	8930410717166677655
8	8930410717166677655
9	8930410717166677655
10	8930410717166677655
11	8930410717166677655
12	8930410717166677655
13	8930410717166677655
14	8930410717166677655
15	8930410717166677655
16	8930410717166677655
17	8930410717166677655
18	8930410717166677655
19	8930410717166677655

<colgroup><col><col></colgroup><tbody>
</tbody>

 

[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]