選択したセルを含む行のグループ化と解除

投稿者 : KOOB     投稿日時 : 2025/04/08(Tue) 18:08:55     OS : Windows 11     EXCEL : Excel 2016

---

任意の連続したセルを選択したのち、そのセルを含む行をグループ化したいです。また、グループ化の解除もできると助かります。

投稿者 : さんこう     投稿日時 : 2025/04/09(Wed) 08:26:04

---

参考になれば。

Sub Test()
    r = Rnd() * 99 + 1
    c = Rnd() * 99 + 1
    n = Rnd() * 10 + 1

    Cells(r, c).Resize(n, 1).Select
    
    Selection.EntireRow.Group
    Selection.EntireRow.Ungroup
End Sub

投稿者 : 例えば     投稿日時 : 2025/04/09(Wed) 15:14:45

---

Sub GroupRows()

    Dim selectedRange As Range
    Set selectedRange = Selection ' 現在選択されているセル範囲を取得

    ' 選択したセルの行をグループ化
    selectedRange.Rows.Group

    ' 選択したセルの行のグループ化を解除
    'selectedRange.Rows.Ungroup
		
End Sub

投稿者 : ピロリ     投稿日時 : 2025/04/09(Wed) 19:16:06

---

■[質問] KOOBさん（2025-04-08 18:08:55）の記事
＞ 任意の連続したセルを選択したのち、そのセルを含む行をグループ化したいです。また、グループ化の解除もできると助かります。
↓こういうことですか？（飛び飛びのセルを選択してないって前提で･･･）　ご参考です。

Sub Sample()
    If Selection.EntireRow.OutlineLevel < 2 Then    '行がグループ化されてなかったら、
        Selection.EntireRow.Group                   '行をグループ化
    Else                                            '行がグループ化されてたら、
        Selection.EntireRow.Ungroup                 '行のグループ化を解除
    End If
End Sub

投稿者 : KOOB     投稿日時 : 2025/04/11(Fri) 20:12:30

---

例えば　さん
ピロリ　さん

返事が遅くなりすみません。
こちらの意図通りにグループ化と解除ができました。
とても助かりました。ありがとうございました。