[[20260904194304]]　『A列：CL列間のグループ化のマクロ』（Ty）　ページの最後に飛ぶ

『A列：CL列間のグループ化のマクロ』（Ty）

いつもお世話になっています

A列～CL列の間の各列　18行目の空欄の列のみ
グループ化するマクロについて
ご教示お願いします。

＜使用 Excel：Excel2019、使用 OS：Windows11 ＞

 説明の都合上、より簡素な例で説明します。適宜読み替えて下さい。

     A列 B   C   D   E   F   G   H   I   J
 1行                                     
 2           AA          BB              CC
 3

 のとき、以下のようなことでしょうか。
 Sub test()
     Dim rng As Range
     For Each rng In Range("A2:J2").SpecialCells(xlCellTypeBlanks).Areas
         rng.Columns.Group
     Next
 End Sub

 いやそういう構造のデータではない、というのであれば例を挙げて説明して下さい。

（xyz） 2026/09/04(金) 20:44:52

ありがとうございます

すみません
AA列～CL列の18行目に　IF(AC21="","","列グループ化せず")の数式で空欄としてあり
そこの空欄列が
SpecialCells(xlCellTypeBlanks)に該当せず、
rng.Columns.Group　となりません。
対応策がありましたら　お教えください。

（Ty） 2026/09/04(金) 21:32:03

 該当セルのValueプロパティを見るようにしてみては。

 Sub test2()
    Dim rng As Range
    For Each rng In Range("A18:CL18")
        If rng.Value = "" Then
            rng.Columns.Group
        End If
    Next
 End Sub

 ※xyzさんのコードをお借りしました。
（寅申） 2026/09/05(土) 05:59:11

ありがとうございました

（Ty） 2026/09/05(土) 06:34:29

コメント返信：

[ 一覧(最新更新順) ]

[[20260904194304]] 『A列：CL列間のグループ化のマクロ』（Ty） ページの最後に飛ぶ

[[20260904194304]]　『A列：CL列間のグループ化のマクロ』（Ty）　ページの最後に飛ぶ