【ExcelVBA公開模試】空白セルが100個連続している場所を探す

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

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

問題

図１のように、A列にランダムに文字列が入力されているが、途中に空白セルがある。セルA2から下向きに空白セルを探し、空白セルが100個連続している場所を探しなさい。さらに、100個連続している場所の1個目の空白セルに「New Record」と入力しなさい（図２）。
ただし、Excelの最終行（1048576行）を考慮しなくてもよい。

＜図１＞

＜図２：完成イメージ＞

わえなび式 正解例

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

目標回答時間

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

この問題の出題範囲

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

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

ご案内

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

正解例

Sub moshi()
   spacecnt = 0
   i = 2
   Do While spacecnt <= 100
       If Cells(i, 1) = "" Then
           spacecnt = spacecnt + 1
           If spacecnt = 1 Then newrow = i
       Else
           spacecnt = 0
       End If
       i = i + 1
   Loop
   Cells(newrow, 1) = "New Record"
End Sub

バックナンバー

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