网站 › 『编程语言讨论求助区』 › VB语言 给表格中重复的行后面插入一行，并复制重复的信息

pjlxfzhmm 发表于 2023-8-3 16:31

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

表格中：在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 发表于 2023-8-3 21:18

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

lovehfs 发表于 2023-8-3 22:42

好像看的不太明白

miocaro507 发表于 2023-8-4 07:40

这是Excel VBA

kaka286 发表于 2023-8-4 21:28

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

kaka286 发表于 2023-8-4 21:29

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

查看完整版本: VB语言 给表格中重复的行后面插入一行，并复制重复的信息