[[20240418165635]]　『各1行目の数だけ　1から数字を表示したい』（Ty）　ページの最後に飛ぶ

『各1行目の数だけ　1から数字を表示したい』（Ty）

 マクロで
 各1行目の数だけ　A列は3行目以降に1から数字を表示したい
 そして、B列以降には前列以前に使用した行の次の行より
 1から同様に表示したい

     |[A]|[B]|[C]|[D]
 [1] |  3|  5|  0|  2
 [2] |   |   |   |   
 [3] |  1|   |   |   
 [4] |  2|   |   |   
 [5] |  3|   |   |   
 [6] |   |  1|   |   
 [7] |   |  2|   |   
 [8] |   |  3|   |   
 [9] |   |  4|   |   
 [10]|   |  5|   |   
 [11]|   |   |   |  1
 [12]|   |   |   |  2

 お教えください

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

こんなかんじ？

Sub test()

    Dim c As Long, r As Long, i As Long 'c:列 r:表示先行番号 i:ループ処理
    r = 3 '表示を開始する行番号

    With ThisWorkbook.Worksheets("Sheet1") '表示中のシートを処理する場合は ｢With ThisWorkbook.ActiveSheet｣に変更

        '1行目の最終列までループ処理
        For c = 1 To .Cells(1, Columns.Count).End(xlToLeft).Column

            'セルの値が数字なら実行
            If IsNumeric(.Cells(1, c).Value) Then

                '1行目の値だけループ処理
                For i = 1 To .Cells(1, c).Value
                    .Cells(r, c).Value = i 'セルに数字を表示
                    r = r + 1 '表示先の行番号を加算
                Next i

            End If

        Next c

    End With

End Sub
（む） 2024/04/18(木) 17:25:27

 できました

 説明まで書込みいただき ありがとうございました
（Ty） 2024/04/18(木) 17:35:50

コメント返信：

[ 一覧(最新更新順) ]

[[20240418165635]] 『各1行目の数だけ 1から数字を表示したい』（Ty） ページの最後に飛ぶ

[[20240418165635]]　『各1行目の数だけ　1から数字を表示したい』（Ty）　ページの最後に飛ぶ