EXCEL 判断数据按需排列，否则插入行代码

来源：百度知道编辑：UC知道时间：2024/05/31 22:19:44

想让第一列按1递增排列，比如A1=1，A2=2，A3=3...如果中间缺值，如A4=4，A5=8...那么需要在A4和A5之间插入3行，令其值分别为5，6，7.哪位高手帮我写出代码？
糊涂小仙000的方法在中间缺少多行的情况下好像就不行了；bergyan的比较适合，但是如果允许下一行与上一行数值相等，比如在A8=8，A9=8的情况下，不用更正，而此时A10就应该等于9了，又该怎么判断呢？另外，数值不一定是从1开始，A1可以是任意值，后面的按1递增就可以了。谢谢

排序你录个宏就行了，应该会吧，我就不重复了。排好序后，用代码实现加入新行，并填入相应序号。

Public Sub aa()
For i = 1 To 50
If Cells(i, 1) <> i Then Rows(i).Insert Shift:=xlDown
Next i
For j = 1 To WorksheetFunction.Max([a:a])
If Cells(j, 1) = "" Then Cells(j, 1) = j
Next j
End Sub

范围自已可以加，以上原理供参考，如果不懂代码，可先保存起来，待以后学会再研究。

Sub cc()

i = 1

'下面这句判断第i个格子是否为空

Do While Cells(i, 1) <> ""

If Cells(i, 1) > i Then

a = Cells(i, 1)

'下面这句是插一行的意思

Rows(i).Insert

Cells(i, 1) = i

Cells(i + 1, 1) = a

i = i + 2

Else: i = i + 1

End If

Loop

End Sub

在vba里添加模块，并将上面的代码输入，并且运行，正好得到结果。图是未处理的。

关于EXCEL数据排列 excel 的数据排列问题 Excel自动填充(排列？)数据问题如何使excel中的数据倒序排列怎样把txt文件里按行排列的数据导出到excel，并按列排列？谢谢了！ Microsoft Excel 工作表,如何对竖排数据按名称排列？ Excel 如何按阿拉伯数字排列 excel如何把一列数据随即的排列？？问问excel里面如何能实现数据自动排列？ excel中如何只由一列数据来排列