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

数字迷

要求在表里边，先谢

lcluck2002

A列数字全部两两组合0304.xlsm

dxq92

1. Sub test()
   
2.     Dim wb As Workbook
   
3.     Dim sht As Worksheet
   
4.     Dim data As Variant
   
5.     Dim dataRe As Variant
   
6.    
   
7.     Set wb = ThisWorkbook
   
8.     Set sht = wb.ActiveSheet
   
9.    
   
10.     With sht        
    
11.         lr = .range("A" & .rows.count).End(xlup).row
    
12.         data = .Range("a1").Resize(lr, 1)
    
13.         
    
14.         ReDim dataRe(1 To 100 * 10 ^ 4, 1 To 2)
    
15.         For i = 1 To UBound(data)
    
16.             For j = i + 1 To UBound(data)
    
17.                 t = t + 1               
    
18.                 dataRe(t, 1) = data(i, 1)
    
19.                 dataRe(t, 2) = data(j, 1)
    
20.             Next
    
21.         Next
    
22.         
    
23.         .UsedRange.Offset(, 1).Clear
    
24.         .Range("c1").Resize(t,2) = dataRe
    
25.     End With
    
26. End Sub
    

复制代码

万事胜①

A列数字全部两两组合.zip (16.55 KB, 下载次数: 6)

2023-3-5 00:57 上传

点击文件名下载附件

数字迷

lcluck2002 发表于 2023-3-4 23:32
A列数字全部两两组合0304.xlsm

750个数字，溢出，咋弄？

shiruiqiang

打个比方，750个数字，第一排组合是从1-750，第二排是从2-750，导致第2排的第750个数字怎么排列？

数字迷

shiruiqiang 发表于 2023-3-5 10:52
打个比方，750个数字，第一排组合是从1-750，第二排是从2-750，导致第2排的第750个数字怎么排列？

任意两数的全部组合，就是A列的所有数字两个一组来组合

zxsea_7426

是这样的结果不?

数字迷

zxsea_7426 发表于 2023-3-5 13:55
是这样的结果不?

对，是这个效果。表传上来啊

zxsea_7426

数字迷 发表于 2023-3-5 14:14
对，是这个效果。表传上来啊

代码详见8楼,已经附上