在每個小計之後添加行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

回答

相關問題