[已解决]读取A列单元格数据按照3个数字为一组不重复排列，详情见附件。

fls996

现在的代码我是用循环1-28自动排列，我想在A列读取数据排列，不知道怎么写。是不是要用到字典，请老师帮忙一下这个困扰我多天的问题。

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-2-27 16:18

Dim arr, brr(3), r
Sub x()
   arr = Range("A1").Resize(Range("A65536").End(xlUp).Row)
   r = 0: Call com(1, 0)
End Sub
Sub com(k As Integer, n As Integer)
   If n < 3 Then
      For i = k To UBound(arr) - 2 + n
         brr(n) = arr(i, 1)
         Call com(i + 1, n + 1)
      Next
   Else
      r = r + 1
      Cells(r, 2).Resize(1, 3) = brr
   End If
End Sub

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

Dim arr, brr(3), r
Sub x()
   arr = Range("A1").Resize(Range("A65536").End(xlUp).Row)
   r = 0: Call com(1, 0)
End Sub
Sub com(k As Integer, n As Integer)
   If n < 3 Then
      For i = k To UBound(arr) - 2 + n
         brr(n) = arr(i, 1)
         Call com(i + 1, n + 1)
      Next
   Else
      r = r + 1
      Cells(r, 2).Resize(1, 3) = brr
   End If
End Sub

祝順心，南無阿彌陀佛！

fls996

cutecpu 发表于 2021-2-27 16:18
Dim arr, brr(3), r
Sub x()
   arr = Range("A1").Resize(Range("A65536").End(xlUp).Row)

厉害，就是我想要的结果，不过看的有点懵。
For i = k To UBound(arr) - 2 + n
这句话的k代表什么？老师能帮我注释一下吗？

cutecpu

fls996 发表于 2021-2-27 18:55
厉害，就是我想要的结果，不过看的有点懵。
For i = k To UBound(arr) - 2 + n
这句话的k代表什么？老 ...

For i = k To UBound(arr) - 2 + n

k 當代表當層(n)迴圈的起始值

相當於你寫 3 層迴圈時，如下：

for i1 = 1 to 28 - 2 + 0
   for i2= i1+1 to 28 - 2 + 1
       for i3= i2+1 to 28 - 2 + 2

祝順心，南無阿彌陀佛！

fls996

cutecpu 发表于 2021-2-27 21:09
For i = k To UBound(arr) - 2 + n

k 當代表當層(n)迴圈的起始值

谢谢您