Excel自动编号单元格

有没有一个简单的方法来将一列的单元格编号为某个数字？

例如，假设我正在创build一个有两列的表格：“试用编号”和“结果”。 如果我知道我有5000个审判，我可以得到这个编号自己1-5000，而不必编号的第一对夫妇，一路拖下去？

Answer 1

由于缺乏细节，投票结束，但其他任何人的方式是类似的

Sub Populate() Dim lngRow As Long Dim rng1 As Range 'starting cell Set rng1 = [a1] lngRow = Application.InputBox("Pls enter the amount of rows", "User Input", 5000, , , , , 2) If lngRow > 0 Then With rng1 .Offset(0, 1).Resize(1, 2) = Array("Trial Number", "result") .Offset(1, 0).Resize(lngRow, 1).Formula = "=row() - " & rng1.Row .Offset(1, 0).Resize(lngRow, 1).Value = .Offset(1, 0).Resize(lngRow, 1).Value End With End If End Sub 

Answer 2

你也可以试试这个。
两个input，第一个是输出单元的数字。

 Sub generatenumber() Dim rng As Range Dim num As Long On Error Resume Next num = Application.InputBox("Enter max numbering", , , , , , , 2) If Err.Number <> 0 Or num = 0 Then Exit Sub On Error GoTo 0 On Error Resume Next Set rng = Application.InputBox("Select destination cell", , "$A$1", , , , , 8) If Err.Number <> 0 Or rng.Cells.Count > 1 Then Exit Sub On Error GoTo 0 rng.Range("A1:A" & num).Formula = "=ROW(A1)" rng.Range("A1:A" & num).Value = rng.Range("A1:A" & num).Value End Sub 

如果用户取消两个（2）input框中的任何一个，则该例程终止。