VB语言 给表格中重复的行后面插入一行，并复制重复的信息

pjlxfzhmm

表格中：在a列中找到连续相同数值的行，并在相邻的最下面的行中插入新的行，然后将连续相同的数值的行的第一行复制到新插入的行中。
Sub InsertRows()
    Dim lastRow As Long
    Dim i As Long
   
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
   
    For i = lastRow To 2 Step -1
        If Cells(i, 1).Value <> Cells(i - 1, 1).Value Then
            Rows(i).Insert
            Range("A" & i & ":G" & i).Value = Range("A" & i - 1 & ":G" & i - 1).Value
        End If
    Next i
End Sub

zlf2020999

举例说明最好了，没有看明白是什么意思1

lovehfs

好像看的不太明白

miocaro507

这是Excel VBA

kaka286

换一个思路
1 原始行数据排序
2 循环判断，每一行和下一行比较，如果相等，在同一行后一列写0
   如果不相等，写1
3 按1 0那一列排序就得到你要的结果

kaka286

感觉那你应该是想剔除a列的重复数据