【ExcelVBA公開模試】総当たりの組み合わせ

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

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

問題

A～Jの10チームがあり、図１のようにセルA2:A11にチーム名が入力されている。これを用いて、図２のように総当たりで対戦する時の組み合わせ（45通り）をC～D列に出力しなさい。

＜図１＞

＜図２：完成イメージ＞

わえなび式 正解例

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

目標回答時間

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

この問題の出題範囲

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

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

ご案内

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

正解例

Sub moshi()
   cnt = 2
   For i = 1 To 9
        For j = i + 1 To 10
            Cells(cnt, 3) = Cells(i + 1, 1)
            Cells(cnt, 4) = Cells(j + 1, 1)
            cnt = cnt + 1
        Next
   Next
End Sub

（別解）1次元配列

Sub bekkai()
    Dim team(10)
    For i = 1 To 10
        team(i) = Cells(i + 1, 1)
    Next
    cnt = 2
    For i = 1 To 9
       For j = i + 1 To 10
           Cells(cnt, 3) = team(i)
           Cells(cnt, 4) = team(j)
           cnt = cnt + 1
       Next
    Next
End Sub

バックナンバー

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