アウトライン機能で作成された集計の行を塗りつぶすには?

Question 77.4 Excel VBA Borad (掲示板)より Previous Next
以下のような場合にする 方法を教えてください

右図は、[データ]メニュー → [集計]で操作したものですが、
「集計」行 (4と7行目) 全体に色をつけたいです。
データ行の最下段はいつも変動します。
Answer   2006.2.3 Yoshioh Nagai
こんな感じでしょうか。
ただし、7行目にある "集計" はExcel2003の場合です。
Excel2002では "合計"、Excel2000と97では "計" に変えてください。
Sub 集計行のセルを塗りつぶす()
    Worksheets("Sheet1").Activate
    右端列 = Cells(1, Columns.Count).End(xlToLeft).Column
    下端行 = Range("A" & Rows.Count).End(xlUp).Row
    色 = 8                      '塗りつぶし色のインデックス番号
    For 行 = 2 To 下端行
        If Right(Range("A" & 行).Value, 2) = "集計" Then
            Range(Cells(行, 1), Cells(行, 右端列)).Interior.ColorIndex = 色
        End If
    Next
End Sub

 

Excel VBA Macro