vba 「Do loop文を２重に使ってA1からB10に１～２０を表示する。」　のやり方を教えてほしい

「Do loop文を２重に使ってA1からB10に１～２０を表示」　のやり方を教えてほしい

以下のコードで画像の結果になることは理解できる。
どうやってB1に11~20までの処理を記述したらいいかがわからない。

考え方も教えていただけると助かります。

vba
1Sub ループdoloop2重()
2
3    Dim j As Integer
4    Dim i As Integer
5
6    j = 1
7    
8    Do While j <= 2
9        i = 1
10        Do While i <= 10
11            Cells(i, j) = i
12            i = i + 1
13        Loop
14    j = j + 1
15    Loop
16End Sub

結果の画像

試したこと。

vba
1Do While i <= 20 'ここを10から２０に変えた。
2            Cells(i, j) = i
3            i = i + 1
4        Loop

vba
1Sub ループdoloop2重()
2
3    Dim j As Integer
4    Dim i As Integer
5
6    j = 1
7    
8    Do While j <= 2
9        i = 1
10        Do While i <= 10
11            Cells(i, j) = i
12            i = i + 1
13        Loop
14
15    j = j + 1
16'追加コードはじめ
17　　　　i = 11
18　　　　Do While i <= 10
19            Cells(i, j) = i
20            i = i + 1
21        Loop
22’追加コード終わり。結果は画像のままだった
23    Loop
24End Sub

行動規範の内容に同意します

回答2件

ベストアンサー

いろいろあると思いますが、例えば、
Cells(i, j) = i を Cells(i, j) = i + (j - 1) * 10 とすればいいでしょう。

投稿2021/05/16 12:16

hatena19

総合スコア34075

Cells(i, j) = i
これではどうしても、どの列のi行目にもiを入れることになっちゃいますよね。
入れたい値は別の変数（たとえばk）にして、
Cells(i, j) = k
で、二重ループに入る前に
k = 1
として、セルを進めるたびにkをインクリメントしていけば良いのでは。