作者：乔山办公网日期：
返回目录：excel表格制作
在F2中输入或复制粘贴下列公式
=VLOOKUP($A2,$B:$D,COLUMN(A1),0)
下拉填充
三种编号抄（公式向下复制）袭
1、每一个类百别编一个号
B2=IF(ISERROR(VLOOKUP(A2,A$1:B1,2,0)),MAX(B1:B$1)+1,VLOOKUP(A2,A$1:B1,2,0))
2、每一个类别内按出现的度次序编号
C2=COUNTIF(A$2:A2,A2)
3、按类别编后再按类别内出现的次序编号
D2=IF(ISERROR(VLOOKUP(A2,A$1:B1,2,0)),MAX(B1:B$1)+1,VLOOKUP(A2,A$1:B1,2,0))&"-"&COUNTIF(A$2:A2,A2)
1、首先打开一份Excel表格。
2、选中百单元格，在其中一个单元格中输入起始的数字度。
3、接着将光标停留在这个单元格右下角。
4、等光标变成十字架之后，一回直拖动着鼠标往下拉，使数字自动往下填充。
5、此时填充的都是同一个数字，没有变化答，可以点击右下角的自动填充选项图标，选择填充序列。
6、选择了填充方式之后，这样就可以看到一列数字按＋1的顺序排列了。
正确顺序应该是：168273540
请用e799bee5baa6e59b9ee7ad94361VBA写个程序：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 13 And Target.Column = 1 And Target.count = 1 Then '（A13是触发单元格）
Dim x2(10, 2) As Integer
Dim i, j, k, m As Integer
For i = 0 To 9
x2(i, 0) = i
x2(i, 1) = 0
Next i
k = 13 - 1
m = 2
While (k > 0)
For j = 1 To 3
x2(Val(Mid(Cells(k, 1), j, 1)), 1) = x2(Val(Mid(Cells(k, 1), j, 1)), 1) + 1
If x2(Val(Mid(Cells(k, 1), j, 1)), 1) = 2 Then
Cells(13, m) = x2(Val(Mid(Cells(k, 1), j, 1)), 0)
Cells(14, m) = 2
m = m + 1
End If
Next j
k = k - 1
Wend
End If
End Sub