Vba 宏，如果上面的单元格和下面的单元格内容相同，则在Excel中插入空行

我有一张Excel表格，A列中有如下文本值：

• 意大利
• 意大利
• 英格兰
• 英格兰
• 英格兰
• 希腊
• 德国
• 德国
• 德国
• 德国

我需要在每个国家组之间添加一个空白行，将它们分开，以便更好地查看

我已经尝试过匹配它们，但是我得到的是真的/假的，但是不知道如何获取引用，在哪里添加空白行。

这是什么？

Sub StackTest()
Dim LastRow As Long

LastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

For c = LastRow To 5 Step -1
    If ActiveSheet.Range("A" & c).Value <> ActiveSheet.Range("A" & c - 1) Then
        ActiveSheet.Range("A" & c).EntireRow.Insert
    End If
Next c

End Sub

子堆栈测试（）
最后一排一样长
LastRow=ActiveSheet.Range（“A”&Rows.Count）.End（xlUp）.Row
对于c=LastRow至5步骤-1
如果ActiveSheet.Range（“A”&c）.Value ActiveSheet.Range（“A”&c-1），则
ActiveSheet.Range（“A”&c）.EntireRow.Insert
如果结束
下一个c
端接头

与其插入空行，不如更改行的高度，以便保留排序和筛选功能。

---

使用以下命令：

Rows（c）.RowHeight=24.75

（您可以根据自己的喜好更改数字）代替

ActiveSheet.Range（“A”&c）.EntireRow.Insert

，这在@Permanoob中非常棒。我在前3行有标题，是否可以在A3之后开始检查并向下？