请教：如何用Excel实现自动插入行？

来源：百度知道 编辑：UC知道 时间：2024/05/05 03:08:46
例如
1 11 1 X
2 11 2 X
3 11 2.5 X
4 11 3 X
第一列和第三列假设都是表示序号，后者的序号包含前者，如何实现最终成为如下表
1 11 1 X
2 11 2 X
2.5 X
3 11 3 X
4.......
最好是能用Excel编程的，因为数据量很大，难以一一操作

a = 1
Do While Cells(a, 3) <> ""
If Cells(a, 1) = Cells(a, 3) Then
a = a + 1
Else
Range(a & ":" & a).Select
Selection.Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(a, 3) = Cells(a + 1, 3)
Cells(a, 4) = Cells(a + 1, 4)
Cells(a + 1, 3) = Cells(a + 1, 1)
a = a + 2
End If
Loop
a = ""

啥叫自动插入行？

选中 3 11，当鼠标移动到11那个单元格时变成黑色十字架，
然后按住shift键，同时按住鼠标左键向下拖一行

先排序号再插行
插完后把下面的往上移动就行了