首页 > Excel专区 > Excel教程 >

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

Excel教程 2022-01-07 22:11:16

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

图1

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

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所示。


标签: Excel图表制作Excel常用函数excel数据透视表excel教程

office教程网 Copyright © 2016-2020 https://www.office9.cn. Some Rights Reserved.