グループすべての選択されたシートの同じ行をグループ

Question

私は頻繁にそれらのすべての同じ場所（すべてのシートが同じ形式を持っている）の同じ場所にいくつかの行を追加する必要がある複数のシートを持つワークブックを持っています。複数のシートを選択するだけで行を追加することは簡単ですが、行をグループ化する必要もありますが、複数のシートを選択する場合はグループ化は機能しません。私が今までに持っているコードは、すべてを選択していますが、最初のシートだけをグループ化しています。

Sub Group_Rows() 

Dim myarray As Variant 
myarray = Array("Net Rev", "PAP", "EST", "DLC", "COP", "CPPF", "Fixed Expenses", "OI", "Int HO by title",) 

ThisWorkbook.Sheets(Array("Net Rev", "PAP", "EST", "DLC", "COP", "CPPF", "Fixed Expenses", "OI", "Int HO by title")).Select 
Rows("50:50").Group 

End Sub 

ご指摘いただければ幸いです。 おかげ

Answer 1

あなたがグループに単一の行をしたい、なぜ私は本当に理解していないが、ここでそれを行いますコードだ...

Sub Group_Rows() 
    Dim myArray() As String, wsName As Variant 

    myArray = Split("Net Rev, PAP, EST, DLC, COP, CPPF, Fixed Expenses, OI, Int HO by title", ", ") 

    For Each wsName In myArray 
     ThisWorkbook.Sheets(wsName).Rows(50).Group 
    Next wsName 
End Sub