[已解决]列出将A到F列数据任意3个数的所有组合

sanpiao

列出将A到F列数据任意3个数的所有组合

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-7-9 22:41

Dim a, ar, r, num(1 To 3)
Sub demo()
   [h:h].ClearContents
   r = 0
   a = [a1].CurrentRegion
   For ar = 1 To UBound(a)
      com 1, 1
   Next
End Sub
Sub p(n)
   If n > 3 Then
      r = r + 1
      Cells(r, "h") = Join(num, "")
      Exit Sub
   End If
   For i = n To 3
      If i > n Then
         If num(i) = num(i - 1) Then GoTo 1
      End If
      v = num(n): num(n) = num(i): num(i) = v
      p n + 1
      v = num(n): num(n) = num(i): num(i) = v
1:
   Next
End Sub
Sub com(k, n)
   If n > 3 Then p 1: Exit Sub
   For i = k To 3 + n
      If i > k Then
         If a(ar, i) = a(ar, i - 1) Then GoTo 1
      End If
      num(n) = a(ar, i)
      com i + 1, n + 1
1:
   Next
End Sub


祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

Dim a, ar, r, num(1 To 3)
Sub demo()
   [h:h].ClearContents
   r = 0
   a = [a1].CurrentRegion
   For ar = 1 To UBound(a)
      com 1, 1
   Next
End Sub
Sub p(n)
   If n > 3 Then
      r = r + 1
      Cells(r, "h") = Join(num, "")
      Exit Sub
   End If
   For i = n To 3
      If i > n Then
         If num(i) = num(i - 1) Then GoTo 1
      End If
      v = num(n): num(n) = num(i): num(i) = v
      p n + 1
      v = num(n): num(n) = num(i): num(i) = v
1:
   Next
End Sub
Sub com(k, n)
   If n > 3 Then p 1: Exit Sub
   For i = k To 3 + n
      If i > k Then
         If a(ar, i) = a(ar, i - 1) Then GoTo 1
      End If
      num(n) = a(ar, i)
      com i + 1, n + 1
1:
   Next
End Sub


祝順心，南無阿彌陀佛！

sanpiao

cutecpu 发表于 2021-7-9 22:41
Dim a, ar, r, num(1 To 3)
Sub demo()
   [h:h].ClearContents

您好老师！有个小问题，第一个数为0时组合结果第一位0不组合

cutecpu

sanpiao 发表于 2021-7-11 22:06
您好老师！有个小问题，第一个数为0时组合结果第一位0不组合

您把 H 列改成「文字」格式就行了！

下次您附测资的时候
尽量把这种会测的附上
这样在写代码时就会考虑进去

sanpiao

cutecpu 发表于 2021-7-11 22:08
您把 H 列改成「文字」格式就行了！

下次您附测资的时候

谢谢老师