首页officeexcel正文

如何按指定个数在Excel中获得一列数据的所有可能组合?

强国说学习2022-08-09122excel图表制作excel常用函数excel数据透视表Excel教程

Q:数据放置在列A中,我要得到这些数据中任意3个数据的所有可能组合。如下图1所示,列A中存放了5个数据,要得到这5个数据中任意3个数据的所有可能组合,如列B中所示。如何实现?

图1

(注:这是无意中看到的一个问题,我觉得程序编写得很巧妙,使用了递归的方法来解决,非常简洁,特将该解答稍作整理后辑录于此与大家分享!)

该文章内容来源于网络,由WPS之家(wps.qiangguoshuo.com)收集,希望能为您提供帮助。

A:VBA代码如下:

Sub Combinations()

Dim rng As Range

Dim n AsLong

Dim vElements As Variant

Dim lRow As Long

Dim vResult As Variant

‘要组合的数据在当前工作表的列A

Set rng =Range(“A1”, Range(“A1”).End(xlDown))

‘设置每个组合需要的数据个数

n = 3

‘在数组中存储要组合的数据

vElements =Application.Index(Application.Transpose(rng), 1, 0)

‘重定义进行组合的数组大小

ReDim vResult(1 To n)

Call CombinationsREC(vElements, CInt(n), vResult, lRow, 1, 1)

End Sub

Sub CombinationsREC(vElements As Variant, _

p As Integer,_

vResult AsVariant, _

lRow As Long,_

iElement AsInteger, _

iIndex AsInteger)

Dim i AsInteger

For i =iElement To UBound(vElements)

vResult(iIndex)= vElements(i)

IfiIndex = p Then

lRow = lRow + 1

Range(“B” & lRow) = Join(vResult, “, “)

‘每组组合放置在多列中

Range(“C” &lRow).Resize(, p) = vResult

Else

‘递归调用

Call CombinationsREC(vElements, p, vResult, lRow, i + 1, iIndex + 1)

End If

Next i

End Sub

代码的关键在于递归调用的实现,有兴趣的朋友可以使用F8键逐语句运行代码观察代码效果,来理解实现过程。

代码的图片版如下:

如果将代码中注释掉的代码恢复,也就是将组合结果放置在多列中,运行后的结果如下图2所示。

如想转载该文章请注明出处:强国说学习-qiangguoshuo.com
强国说学习

转载声明:本站发布文章及版权归原作者所有,转载本站文章请注明文章来源!

本文链接:https://www.qiangguoshuo.com/excel/18985.html