横方向のループについて

Question

前提・実現したいこと

複数回コピーした後、更にコピー
で質問した内容の続きのようなご質問になります。

上記リンク先の内容にfor文でセルが埋まっている部分をループして
空のセルに辿り着いたら貼り付け、という内容にしたいと思っております。

発生している問題・エラーメッセージ

forがそもそも作動しないです

該当のソースコード

Sub prot2()
    '人数を入力
    Dim math As Long
    math = InputBox("人数を入力してください")
    Dim d As Range, c As Range
    Set d = Range("A1:W52")
    Set c = d.Resize(d.Rows.Count + 1, d.Columns.Count + 1)
    c.Copy c.Resize(c.Rows.Count * (math + 1), c.Columns.Count * 2)
    c.EntireColumn.Copy
    
    
    
    For i = 1 To Cells(1, Columns.Count).End(xlToRight).Columns
        If Cells(1, i) = "" Then
            c.EntireColumn.Offset(, c.Columns.Count).PasteSpecial xlPasteColumnWidths
        End If
    Next
    MsgBox "ok"
End Sub

Answer 1

<forがそもそも作動しないです>

For i = 1 To Cells(1, Columns.Count).End(xlToRight).Columns
ここの部分です　Cells(1, Columns.Count).End(xlToRight).Columns
最終列（Range（”xFD1”）から右側に検索しても列はありません、なので
０です。ループはしません

Answer 2

まず、やりたいことの確認ですが、
「A列～W列をループし、1行目のセルが空白の時、その"列幅"を、24列右の列（コピー先であるY列～AU列の該当列）に適用する」ということだと推測しましたが合ってますか？
もしそうだとしたら、

    For i = 1 To 23
        If Cells(1, i) = "" Then
            Columns(i).Copy
            Columns(i + 24).PasteSpecial xlPasteColumnWidths
        End If
    Next

もしくは

    For i = 1 To 23
        If Cells(1, i) = "" Then
            Columns(i + 24).ColumnWidth = Columns(i).ColumnWidth
        End If
    Next

私が前の質問のコメントで書いた、

    c.EntireColumn.Copy
    c.EntireColumn.Offset(, c.Columns.Count).PasteSpecial xlPasteColumnWidths

は、実際的には「A列～W列の列幅を（ループで１列ずつではなく、一括で）X列～AV列に反映させる」という意味になります。
なので、Forループの中で使うのは意味がない（無駄）です。

なお、 For が作動しないのは、
For i = 1 To Cells(1, Columns.Count).End(xlToRight).Columns の最後のsが直接的な原因です。
列番号を取得するところなので Columnとなるのが正解。あと、Endの向きも逆です。

For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
ただし、このままだと、W列ではなくAU列が取れてしまうと思います。（右側にコピーした後なので。）
まず列幅を調整するForループを回した後で、コピー処理を動かす、という順番なら大丈夫だと思います。

Comments

[退会済みユーザー]

ご返信が遅くなってしまい申し訳ございません。

認識としましては上記で記述頂いた内容に24列目の右の列がの1行目が空白でなければ更に24列飛び、その右の列へ表を作成していくという内容になります。
jinoji様の記述頂いたコートを参考にさせて頂き、無事やりたいことができました。

ありがとうございました！