excel一列有顺序的数字,怎么自动找出缺少的数字?或者补充

Question

excel一列有顺序的数字,怎么自动找出缺少的数字?或者补充，1-255再次1-255，其中1-255之间随机缺少某些数字，一共持续5千行

Answer 1

这种只能用VBA代码（基本逻辑是，比较相邻两行的值，a行的值是否等于a+1行的值-1，存在就继续，不存在就添加一行，并填入a行的值+1，然后继续）

代码如下：

----------------------

Public Sub tianjia()

Dim a

Do

a = a + 1

If a > 20 Then           '这个20相当于执行20次，可根据你的需求修改

Exit Do

ElseIf Cells(a, 1) = Cells(a + 1, 1) - 1 Then

Else: Cells(a + 1, 1).Select

ActiveCell.Rows("1:1").EntireRow.Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Cells(a + 1, 1) = Cells(a, 1) + 1

End If

Loop

End Sub

-----------------------

Answer 2

放结果的起始位置=IF(ROW(A1)>SUM(--ISNA(MATCH(MIN(A:A)+ROW(INDIRECT("1:"&MAX(A:A)-MIN(A:A)-1)),A:A,0))),"",MIN(A:A)+SMALL(IF(ISNA(MATCH(MIN(A:A)+ROW(INDIRECT("1:"&MAX(A:A)-MIN(A:A)-1)),A:A,0)),ROW(INDIRECT("1:"&MAX(A:A)-MIN(A:A)-1))),ROW(A1)))数组公式，同时按ctrl+shift+回车结束，下拉

Answer 3

写代码来处理吧