EXCEL怎么自动空行?

EXCEL怎么自动空行?

1、如果有200个人名，在H1输入以下公式，然后向下填充公式
=INT(ROW(A3)/3)
2、在所有数据的下方，添加200行空行，并在H列，对应生成1开头到200的升序序号
3、选择H列，复制并粘贴为数值；
4、选择A:H列，在“数据”选项下的“排序”中，以H列作为主要关键字，进行升序排序即可。
5、完成后，删除H列。

Sub 插入行()
For i = [b65536].End(3).Row To 2 Step -1
    If Cells(i, 2) <> Cells(i - 1, 2) Then Rows(i & ":" & i).EntireRow.Insert
Next
End Sub

Sub crh()
For i = Range("B65536").End(xlUp).Row To 2 Step -1
If Range("B" & i - 1) <> Range("B" & i) And Range("B" & i) <> "" And Range("B" & i - 1) <> "" Then
Rows(i & ":" & i).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next
End Sub
有优化的余地，仅供参考。

Sub insertRows()
Dim i As Long, LastRw As Long
Application.ScreenUpdating = False
LastRw = Cells(Rows.Count, 2).End(xlUp).Row
For i = LastRw To 2 Step -1
    If Cells(i, 2) <> Cells(i - 1, 2) Then Rows(i & ":" & i).Insert
Next
Application.ScreenUpdating = True
End Sub追问我想弱弱问一下 这段代码在哪里输入。追答
呵呵，要了代码不知往哪里放？
excel中按ALT+F11，进入如下界面，新建一个模块，把代码放里面。
追问完美解决 十分感谢！追答ok