添加行并重复设置数据多次

Question

我正在尝试编写一个VBA Excel宏以遍历数十万行数据，以确保A列中的每个唯一条目都具有与C列相等的条目。

例如：

源帐户ID 84512出现了6次，但必须出现12次（如C列所示）。这意味着我需要在现有的6行之前（或之后）添加6行。

接下来，我们看到源帐户ID 64857发生一次，但需要发生5次。我将在上面添加4行，并使用相同的源帐户ID代码和相同的帐户名称。其余单元格可以为“ 0”。

以下是成品的一个示例：

这是我到目前为止所拥有的：

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

如果您有任何建议，请告诉我。

*这些示例中的所有数据都是虚构的