>>515
再帰ってのはこんなふうに書くんだよ
ループのネストの段数が不定でも問題なく動く
VBAの仕様でデータが300列ぐらいあるとメモリ不足を起こすけど、300列の順列なんて出そうとしたら人類が滅亡するほど時間がかかるんで実用上は問題ない

Sub main()
　　Call Recursive(1, "")
End Sub

Sub Recursive(c As Long, s As String)
　　max_row = Cells(Rows.Count, c).End(xlUp).Row
　　If Cells(max_row, c).Value <> "" Then
　　　　For r = 1 To max_row
　　　　　　Call Recursive(c + 1, s & Cells(r, c))
　　　　Next
　　Else
　　　　Debug.Print s　　' データ出力
　　End If
End Sub