画像のように、組み合わせを各パターンに応じ自動で表示させたいです。 何か方法はあるでしょうか。

Question

画像のように、組み合わせを各パターンに応じVBAを用い組み合わせを自動で表示させたいです。
何か方法はあるでしょうか。(初歩的すぎて申し訳ございません。。。)

Comments

[y_waiwai]

あまりに説明不足すぎて意味不明です

Answer 1

Sub ox()
    Dim i, j
    With ActiveWindow.RangeSelection
        For i = 1 To 2 ^ .Count: For j = 1 To .Count
            .Resize(1, 1).Offset(i, j - 1).Value = .Resize(1, 1).Offset(, j - 1).Value & IIf(Mid(WorksheetFunction.Dec2Bin(i - 1, .Count), j, 1) = 0, "〇", "×")
        Next j, i
    End With
End Sub