【ExcelVBA公開模試】縦横2方向に連番を入力する（その２）

文法を無視して、とりあえず動けばいいという邪道ExcelVBA講座こと「速読VBA単語」に準拠した問題を出題します。

わえなび速読VBA単語【邪道ExcelVBA基本講座】｜わえなび VBA｜note

問題

図１のように入力した。ExcelVBAを用いて、次の各設問の処理を実行しなさい。
（１）2行目、5行目、8行目、・・・、35行目に、図２のような連番を入力しなさい。
（２）「A」「B」「C」「D」「E」の順に入力しなさい（図３）。

＜図１＞

＜図２：設問（１）完成イメージ＞

＜図３：設問（２）完成イメージ＞

わえなび式 正解例

（このページの下にあります）

目標回答時間

プロ1分以内、アマチュア10分以内に処理ができたら合格

この問題の出題範囲

「速読VBA単語」Program3-8まで

わえなび式ExcelVBA公開模試（無料） - Program3_8｜わえなび VBA｜note

ご案内

ExcelVBAをなんとなく理解できればいいという初心者のための「速読VBA単語」を受講希望の方はカリキュラムをご覧ください。

正解例

Sub kakko1()
   cnt = 1
   For i = 2 To 35 Step 3
       j = 2
       Do While Cells(i - 1, j) <> ""
           Cells(i, j) = cnt
           j = j + 1
           cnt = cnt + 1
       Loop
   Next
End Sub

Sub kakko2()
   cnt = 0
   a = Split("A,B,C,D,E", ",")
   For i = 2 To 35 Step 3
       j = 2
       Do While Cells(i - 1, j) <> ""
           Cells(i, j) = a(cnt)
           j = j + 1
           If cnt = 4 Then
               cnt = 0
           Else
               cnt = cnt + 1
           End If
       Loop
   Next
End Sub

バックナンバー

わえなび式ExcelVBA公開模試（無料）｜わえなび VBA｜note