excel如何快速输入1到50

excel如何快速输入1到50的方法如下：

1. 打开Excel表格，在一个单元格里面输入1，然后鼠标放到单元格的右下角成”+“字型时往下（或往左）拉；

   

2. 之后在右下角旁边的”自动填充“选项里面选择”填充系列“，这样就完成了快速的系列号输入。

   

在A1中输入1，选择A列，选择菜单“编辑——>填充——>序列”，在终止值中输入50，按确定即可

按ALT + F11,双击SHEET1,粘贴下列代码。保存。需要说明的是，值得注意的是，你的“最后一位是1 到50”，本身就矛盾啊，我的理解是1到9取的是18位中的17位，而10到50取的是前16位。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
Dim a1 As String
For i = 1 To 50
a1 = Sheets(1).Cells(1, 1).Value
If i > 1 And i < 10 And Sheets(1).Cells(1, 1) <> "" Then
Sheets(1).Cells(i, 2).Value = a1 & i
End If
If i > 9 And Sheets(1).Cells(1, 1) <> "" Then
Sheets(1).Cells(i, 2).Value = Left(a1, 16) & i
End If
Next i
End Sub

如果你的“最后一位是1到50”，应该是“最后两位是01到50的话,则是下面的代码。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
Dim a1 As String
For i = 1 To 50
a1 = Sheets(1).Cells(1, 1).Value
If i > 1 And i < 10 And Sheets(1).Cells(1, 1) <> "" Then
Sheets(1).Cells(i, 2).Value = left(a1,16)& "0" & i
End If
If i > 9 And Sheets(1).Cells(1, 1) <> "" Then
Sheets(1).Cells(i, 2).Value = Left(a1, 16) & i
End If
Next i
End Sub

按住ctrl，把鼠标放在右下角，变成+号的时候下托就行啦