excel 利用宏语言插入空白行

如图，如何在在同一天的最后一行插入空白行，相同日期的文本数量不一样

2026年09月26日 10:42

有2个网友回答

网友（1）：

Sub 插入行()
Dim i As Integer
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
    If Cells(i, 1) <> Cells(i - 1, 1) Then
         Rows(i).Insert xlDown
    End If
Next
End Sub

网友（2）：

Sub x()
Dim i As Integer
i = 1
Do Until Range("a" & i) = ""
If Range("a" & i + 1) <> Range("a" & i) Then
Rows(i + 1).Insert
i = i + 1
End If
i = i + 1
Loop
End Sub

excel 利用宏语言 插入空白行

excel 利用宏语言插入空白行