哪位老师搞搞这个A列数字两两组合

数字迷

zxsea_7426 发表于 2023-3-5 14:51
代码详见8楼,已经附上

刚学VBA,不会啊

数字迷

搞定，多谢老师

薛定谔233

750选2有280875种组合，什么应用这种数据量
combin_arr函数详见，https://blog.csdn.net/hhhhh_51/article/details/124577302

1. Sub 组合()
   
2.     arr = Sheet1.[a1:a750]
   
3.     arr = WorksheetFunction.Transpose(arr)
   
4.     brr = combin_arr(arr, 2)
   
5.     [a1].Resize(UBound(brr), 2) = brr
   
6. End Sub

复制代码