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

問題

1枚目のシートに図１の表を入力した。C2:C11には１～１０の数値がランダムに入力されている（重複はない）。また、2枚目のシートに図２のリーグ表を作成した。図１のC2:C11の順序に従って、図２のA2:A11にチーム名を転記しなさい。また、その順序に合わせて、B1:K1に略称を転記しなさい（図３）。

＜図１＞

＜図２＞

＜図３：完成イメージ＞

わえなび式 正解例

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

目標回答時間

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

この問題の出題範囲

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

ご案内

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

正解例

Sub moshi()
   team = Sheets(1).Range("A2:C11")
   For i = 1 To 10
       Sheets(2).Cells(team(i, 3) + 1, 1) = team(i, 1)
       Sheets(2).Cells(1, team(i, 3) + 1) = team(i, 2)
   Next
End Sub

（別解）

Sub moshi()
    team = Sheets(1).Range("A2:C11")
    teammax = UBound(team, 1)
    ReDim team2(1 To teammax, 1 To 1)
    ReDim team3(1 To 1, 1 To teammax)
    For i = 1 To teammax
        team2(team(i, 3), 1) = team(i, 1)
        team3(1, team(i, 3)) = team(i, 2)
    Next
    Sheets(2).Range("A2").Resize(teammax, 1) = team2
    Sheets(2).Range("B1").Resize(1, teammax) = team3
End Sub

バックナンバー