excel表格中数据不同自动加入空白行，怎么实现

Question

如上图，表格中数字不同就插入一行空白行。如何实现，，，求救
如上图，表格中数字不同就插入一行空白行。如何实现，，，求救

Answer 1

用以下的代码：
Sub kk()
Dim i As Integer
lastrow = Worksheets("Sheet1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
For i = 1 To lastrow
If Cells(i, 1) <> Cells(i + 1, 1) Then
Rows(i + 1).Insert Shift:=xlDown

If Cells(i + 1, 1) = "" Then
i = i + 1
Else
i = i
End If

End If
Next
End Sub
说明：第一列为要判断的数据追问

代码怎么使用的？

追答

ALT+F11打开VBE编辑窗口，双击thisworkbook，将以下代码复制到打开的窗口中，保存。返回工作表；工具－－选项－安全性－－宏安全性－－中－－确定。保存并关闭工作簿。
打开工作簿－－启用宏
在i当前工作表中－－插入一个文本框－－输入插入行－－右击－－指定宏－－找到kk－－双击－－确定
单击文本框就可实现你的要求.

本回答被提问者采纳