Sub Macro5() Dim array1() As String ReDim array1(2, 2) array1(0, 0) = "いちご" array1(0, 1) = "みかん" array1(1, 0) = "あまい" array1(1, 1) = "すっぱい" array1(1, 2) = "にがい" array1(2, 0) = "100円" array1(2, 1) = "200円" row0 = UBound(array1, 1) col0 = UBound(array1, 2) + 1 For n = 0 To (row0 + 1) ^ col0 - 1 nn = n s = "" For row1 = row0 To 0 Step -1 col1 = nn Mod (row0 + 1) nn = nn \ (row0 + 1) If array1(row1, col1) = "" Then s = "" Exit For Else s = array1(row1, col1) & s If row1 Then s = "," & s End If Next If s <> "" Then Debug.Print s Next End Sub
