vba 8选6全排列

根据引用\[1\]和引用\[2\]的代码，可以使用VBA编程语言来生成8选6的全排列。下面是一个示例代码：

Dim N '用于增加动态数组下标

Sub perm(arr, k, m, brr())
    '全排列
    'arr为需要全排列的数组。k为数组下标,m为上标，brr为存放结果的数组
    Dim i As Integer
    
    If k > m Then
        N = N + 1
        For i = 0 To m
            ReDim Preserve brr(1 To m + 1, 1 To N)
            brr(i + 1, N) = arr(i)
        Next i
    Else
        For i = k To m
            Call swap(arr, k, i)
            Call perm(arr, k + 1, m, brr())
            Call swap(arr, k, i)
        Next i
    End If
End Sub

Sub swap(arr, i, j)
    '数据交换
    Dim t
    t = arr(i)
    arr(i) = arr(j)
    arr(j) = t
End Sub

Sub main()
    Dim brr()
    N = 0
    arr = Array(1, 2, 3, 4, 5, 6, 7, 8) '8选6的数字数组
    '对arr全排列
    Call perm(arr, LBound(arr), UBound(arr), brr)
    \[A1\].Resize(UBound(brr, 2), UBound(brr)) = Application.Transpose(brr)
End Sub

这段代码会生成8选6的全排列，并将结果写入Excel的A1单元格开始的区域。你可以根据需要修改数组的内容和输出结果的位置。
#### 引用[.reference_title]
- *1* [Excel·VBA数组排列函数](https://blog.csdn.net/hhhhh_51/article/details/126770841)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insertT0,239^v3^insert_chatgpt"}} ] [.reference_item]
- *2* [VBA全排列组合输出](https://blog.csdn.net/qq_24499417/article/details/85859464)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insertT0,239^v3^insert_chatgpt"}} ] [.reference_item]
- *3* [小白量化彩票实战（5）彩票号码快速生成组合及利用数据库生成彩票号码组合](https://blog.csdn.net/hepu8/article/details/114357181)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insertT0,239^v3^insert_chatgpt"}} ] [.reference_item]
[ .reference_list ]