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

問題

B2：B101に100個の適当な文字列が入っています（図１）。図は、アルファベットと数字の組み合わせになっていますが、どんな文字列でも構いません。ExcelVBAを用いて次の2つの処理をしなさい。
（１）図２のように偶数番目の文字列をD列に移動しなさい。ただし、文字列の削除はClearContentsを用いること。
（２）設問（１）のコードを利用して元の図１の状態に戻しなさい。

＜図１＞

＜図２＞

わえなび式 正解例

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

目標回答時間

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

この問題の出題範囲

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

ご案内

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

正解例

転記先がD2から始まり、1つおきに文字列を移動するのでStep 2となります。
設問（１）のコードが書けたらイコールの左右を逆にすれば元に戻ります。ただし、Range("D:D").ClearContentsはFor文の後です。

Sub kakko1()
   For i = 2 To 101 Step 2
       Cells(i, 4) = Cells(i + 1, 2)
       Cells(i + 1, 2).ClearContents
   Next
End Sub

Sub kakko2()
   For i = 2 To 101 Step 2
       Cells(i + 1, 2) = Cells(i, 4)
   Next
   Range("D:D").ClearContents
End Sub