Excelで組合せを列挙するユーザー定義関数

Function KUMIAWASE(zentai, nukitorisu)
    '使用例
    'zentai="a,b,c,"
    'nukitorisu=2
    'KUMIAWASE="a,b;a,c;b,c;"
    Const sep = ";"
    Dim arrayall, arraypart
    Dim numall As Long, numpart As Long, i As Long, j As Long
    Dim temp As String, textpart As String
    If Right(zentai, 1) <> "," Then
        KUMIAWASE = "#VALUE!"
        Exit Function
    End If
    arrayall = Split(zentai, ",")
    numall = UBound(arrayall)
    If nukitorisu > numall Then
        KUMIAWASE = "#VALUE!"
    ElseIf nukitorisu = 1 Then
        For i = 0 To numall - 1
            KUMIAWASE = KUMIAWASE & arrayall(i) & sep
        Next i
    ElseIf nukitorisu > 1 Then
        For i = 0 To numall - nukitorisu
            temp = ""
            For j = i + 1 To numall - 1
                temp = temp & arrayall(j) & ","
            Next j
            textpart = KUMIAWASE(temp, nukitorisu - 1)
            arraypart = Split(textpart, ";")
            numpart = UBound(arraypart)
            For j = 0 To numpart - 1
                KUMIAWASE = KUMIAWASE & arrayall(i) _
                    & "," & arraypart(j) & sep
            Next j
        Next i
    End If
End Function