在每个小计之后添加行excel vba

-8

我需要一个在每个小计之后插入一行的宏，请参阅下面的图片以获取所需的结果。在每个小计之后添加行excel vba

2017-11-11 Gabe Carvajal

好样的！您是否要求获得许可，或者您是否有关于您已编写的代码的具体问题？ – Jeeped

@Jeeped - 这是我听到过的人最酷的一段时间：D –

@ E.Villiger-即使是星期六的假期，这也是我遇到过的最疯狂，最懒惰，自我授权的问题之一一段时间。 – Jeeped

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

来源

2017-11-11 19:10:08

你可能想从下往上工作。 – Jeeped

的确，我想这样会更稳固，我会编辑我的答案。 –

插入或删除行时总是从下往上工作。如果不是，删除时可能会在迭代期间和插入时跳过'行'，这是人为地将范围扩大到新插入的行。 – Jeeped

在每个小计之后添加行excel vba

回答

相关问题