Function PermutationCombination(data1 As Range, data2 As Range, data3 As Range) As Variant
    ' data1，data2，data3 分别为三组数据的单元格范围，如 A1:A5
    ' 返回三组数据的所有排列组合
    Dim output() As Variant
    ReDim output(1 To data1.Cells.Count * data2.Cells.Count * data3.Cells.Count, 1 To 3)
    Dim i As Long, j As Long, k As Long
    Dim idx As Long
    For i = 1 To data1.Cells.Count
        For j = 1 To data2.Cells.Count
            For k = 1 To data3.Cells.Count
                idx = idx + 1
                output(idx, 1) = data1.Cells(i, 1).Value
                output(idx, 2) = data2.Cells(j, 1).Value
                output(idx, 3) = data3.Cells(k, 1).Value
            Next k
        Next j
    Next i
    PermutationCombination = output
End Function