Question

EXCEL 图1怎么变成图2的效果。怎么自动插入空缺的编号，而且插入后编号是按顺序排列。 函数或VBA都行。

图1

图2





Answer 1

D1公式:
=IF(ROW(A1)>MAX(--A:A),"",TEXT(ROW(A1),"000000"))
E1公式:
=IF(COUNTIF(A:A,D1),VLOOKUP(D1,A:B,2,0),"")

均向下填充

根据需要,可以再选中 D:E列 复制 选择性粘贴 数值 贴回A:B列

追问

貌似拉到第000010的往后就没反映了，而且E列出来的是#N/A啊，大侠。请再指教哈

追答

D1公式:
=CHOOSE(MIN(3,COLUMN(A1)),IF(ROW(A1)>SUMPRODUCT(MAX(1*$A$1:$A$999)),"",TEXT(ROW(A1),"000000")),IF(ISERROR(VLOOKUP(C1,$A:$B,2,0)),"",VLOOKUP(C1,$A:$B,2,0)),"")

或
=IF(ROW(A1)>SUMPRODUCT(MAX(1*$A$1:$A$999)),"",CHOOSE(MIN(3,COLUMN(A1)),TEXT(ROW(A1),"000000"),IF(COUNTIF($A:$A,C1),VLOOKUP(C1,$A:$B,2,0),""),""))

向右向下填充
根据需要,可以再选中 D:E列 复制 选择性粘贴 数值 贴回A:B列

Answer 2

最简单的办法是在辅助列中输入000001和000002然后选中下拉生成一个序列，然后用VLOOKUP()函数把对应的数字V过来就成了。

追问

愿闻其详啊，大侠

追答

比如在你的图1中的数据表中的C1输入000001（首先要设置C列数据个是为文本），C2输入000002，然后选中C1:C2鼠标放到右下角填充柄处下拉生成一列序列号，然后在D1输入=vlookup(c1,a:b,2,0)下拉即可。生成后可以选择性粘贴为数值后把A:B列删除

追问

哦这样！成功了，大侠啊！好人一生平安啊！谢谢啦！

Answer 3

你选住第一个、第二个单元格即10、15所在单元格，鼠标放右下角，按住下拉，OK

Answer 4

Sub AAA()
Dim I As Long
For I = [A65536].End(xlUp).Row To 2 Step -1
If Val(Range("A" & I).Value) <> Val(Range("A" & I - 1).Value) + 1 Then
Rows(I).Insert
Range("A" & I).Value = Format(Range("A" & I + 1).Value - 1, "000000")
I = I + 1
End If
Next
MsgBox "完成！"
End Sub

追问

大侠，我想再请教下。怎么把结果放在CD列呢？而不是替换原来的AB列呢？或者怎么把结果放到其他的sheet中呢