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

Question

我有一张Excel工作表，其中A列是文本值，如：

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

我需要在每个国家/地区组之间添加一个空行以分隔它们并获得更好的视图

我已经尝试过匹配它们，但我得到的只是TRUE / FALSE但不知道如何获取引用以及添加空行的位置。

Answer 1

这样的东西？

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

Answer 2

不是插入空白行，而是更好地更改行的高度，以便保留排序和过滤的能力。 使用此Rows(c).RowHeight = 24.75（您可以根据自己的喜好更改数字）代替ActiveSheet.Range("A" & c).EntireRow.Insert