在每个小计 excel vba 之后添加行 [关闭]

Posted 2023-05-08

【中文标题】在每个小计 excel vba 之后添加行 [关闭]

【英文标题】：add row after each subtotal excel vba [closed]

【发布时间】：2017-11-11 19:03:36

【问题描述】：

我需要一个宏，它会在每个小计之后插入一行，请参阅下图以获得所需的结果。

【问题讨论】：

对你有好处！您是在征求许可，还是对您已经编写的代码有具体问题？

@Jeeped - 这是我听到有人在一段时间内提出的最酷的：D

@E.Villiger- 即使是周六的假期，这也一定是我很长一段时间以来遇到的最狡猾、最懒惰、最自以为是的问题之一。

【参考方案1】：

For i = 1000 to 1 Step -1 ' adjust 1000 to the row number of the last element
    If Cells(i,1).Font.Bold And Cells(i,1) <> "" then
        Cells(i+1,1).EntireRow.Insert
    End If
Next

【讨论】：

你可能想从下往上工作。

没错，我想这样会更可靠，我会编辑我的答案。

在插入或删除行时始终从下往上工作。如果没有，在迭代期间删除行和插入时，您可能会冒“跳过”行的风险，您正在人为地使用新插入的行扩展您的范围。