在Excel中,如何将重复值分隔为以更清晰的格式显示?

时间:2017-10-25 23:33:06

标签: excel excel-vba vba

我可能会错误地问这个问题,但我绝对不是一个优秀的专家。有没有更快的方法来分离excel帖子排序中的重复值?请参阅附件中我需要的图片。图1显示了原始数据,而图2显示了我希望如何格式化数据,但没有手动操作。

Pre

Post

1 个答案:

答案 0 :(得分: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