唐草 @karakusa29

Sub 一括Gr化()

'任意の行を非表示にするため
'フラグ列にコメントが入っている行をグループ化する
　’ここでは1列目のフラグ列に「非表示」とある行を折りたたむ

'事前準備
'フラグ列に「非表示」と入力しておく

Dim 最終行, 作業行
Const フラグ列 = 1

Application.ScreenUpdating = False

'最終行取得
最終行 = Cells(Rows.Count, フラグ列).End(xlUp).Row

'最終行からグループ化開始
For 作業行 = 最終行 + 1 To 2 Step -1

Do Until Cells(作業行, フラグ列) = "非表示"
作業行 = 作業行 - 1
Loop

Range(Cells(作業行, フラグ列), _
Cells(作業行, フラグ列).End(xlUp)).Select
Selection.Rows.Group
作業行 = ActiveCell.Row

Next

End Sub
----------------------------------------------------------------------------------------------

Sub シート全体のGr化解除()
Cells.Rows.Ungroup
Range("A1").Select
End Sub

'written by karakusa 20120127