VBA を使用して Excel で特定の番号シーケンスを作成する

Question

以下のように、横に四角形があり、残りの数字が入力されるスプレッドシートを作成しようとしています。

1

2 3

4 5 6 7 8

9 10 11 12 13 14 15

16 17 18 19 20 21 22 23 24.....など大きな数字まで

ここでは全く成功していないので、これに関する助けがあればありがたいです...

アンコールでは、素数を含むセルをフォーマットしたいと思います。上記のように動作させることができれば、機能すると思われるコードがいくつかあります。

これに関して何か助けがあればお願いします

ケビン

Answer 1

列を入力するだけあ四角で囲み、各行に連続した値を入力します。

Sub ytrewq()
    For i = 1 To 100
        k = 1
        For j = i ^ 2 To ((i + 1) ^ 2) - 1
            Cells(i, k) = j
            k = k + 1
        Next j
    Next i
End Sub

これにより、次のようになります。

このコードを修正して素数をマークするだけです。