1~9 중 세가지 조합 경우의 수

http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=262937009

고수님들의 소중한 조언 부탁드립니다. 다름이 아니라

엑셀 경우의 수 인데요

1-9까지  3조합 입니다. 여기서 1-9까지 값을 주고 조합하면 합계가 나오게끔 하는 방법좀

알려주세요...아무리 찾아도 어렵네요...부탁드릴게요

참고로 1,1,1   / 1,1,2/ . . . 이런식으로 나가게 하고싶어요

가능하시면 첨부파일도 부탁합니다.

---------------------------------------------------------------------------------------------------

Option Base 1
Option Explicit
Sub Macro()
 
    Dim a%, b%, c%
    Dim v%(), i%
    
    '기존자료 삭제
    Range("A1").CurrentRegion.ClearContents
    
    '경우의 수를 담을 배열 재선언
    ReDim v(9 ^ 3, 3)
    i = 1
    
    For a = 1 To 9
        For b = 1 To 9
            For c = 1 To 9
            
                '경우의 수를 배열에 담음
                v(i, 1) = a: v(i, 2) = b: v(i, 3) = c
                i = i + 1
                
            Next c
        Next b
    Next a
    
    '출력
    Range("A1").Resize(729, 3) = v
    
End Sub
 

경우의수.xlsm