在 Excel 中，如何分隔重复值以更清晰的格式显示？

【问题标题】：In Excel, how can I separate duplicate values to display in a cleaner format?在 Excel 中，如何分隔重复值以更清晰的格式显示？
【发布时间】：2017-10-26 08:43:20
【问题描述】：

我可能问错了，但我绝对不是 excel 专家。有没有更快的方法来分隔 Excel 后排序中的重复值？请参阅我需要的附件图片。图 1 显示了原始数据，而图 2 显示了我希望如何格式化数据，但无需手动进行。

【问题讨论】：

标签： excel vba

【解决方案1】：

使用启用宏的工作簿 (.xlsm)，您可以循环浏览每一行，检测给定列中的更改，然后在检测到更改时在上方插入一个空行。见以下代码：

Sub SeparateGroups()
    Dim lastRowIdx As Integer
    lastRowIdx = Range("A1").End(xlDown).Row()
    Dim testRowIdx As Integer
    Dim previousData As String
    Dim testData As String
    previousData = Range("A1").Value
    For testRowIdx = 2 To lastRowIdx
        testData = Range("A" & testRowIdx).Value
        If (testData <> previousData) Then
            Rows(testRowIdx).Insert shift:=xlShiftDown
            lastRowIdx = lastRow + 1
        End If
        previousData = testData
    Next
End Sub

【讨论】：

太棒了。很高兴它很有用。请将其标记为已接受的答案以结束问题。