插入等于单元格值的行数-Java 学习之路

我试图让代码遍历我的数据中的每一行，并在移动到新的唯一条目时插入等于同一行的C列中的值的行数 .

我设法将一些代码放在一起，但是这里只有一行：

Sub InsertRowAtChangeInValue()
   Dim lRow As Long
   For lRow = Cells(Cells.Rows.count, "A").End(xlUp).Row To 2 Step -1
      If Cells(lRow, "A") <> Cells(lRow - 1, "A") Then Rows(lRow).EntireRow.Insert
   Next lRow
End Sub

问题是我需要计算值在列A中出现的次数，然后使其插入多个行到C中所包含的总数 . 因此，如果该值已经在A中5次，但是C具有值为8，我需要在5个重复值后插入3行 .

有没有办法让它插入一些行，这些行等于当前存放在同一行的C列中的任何值？重要的是要知道C中的值可以是0，这意味着不会插入任何行 .

1 回答

这里有一个小小的修改可能会让你到那儿...

Sub InsertRowAtChangeInValue()
       Dim lRow As Long
       For lRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row To 10 Step -1
            If Cells(lRow, "A") <> Cells(lRow - 1, "A") And Cells(lRow, "C") > 0 Then
                Rows(lRow).Resize(Cells(lRow, "C")).Insert
            End If
       Next lRow
    End Sub

回复于 2024-04-28T07:50:58+08:00

插入等于单元格值的行数

1 回答

相关问题