excel拖动排列步骤如下：1.我在EXCEL中输入以下数字，如图：2.现在我要想复制“1”，则拖动单元格A1，但此该你会发现，在下拖动下方有个方框，如图：3.上步出现的情况便是以顺序的方式出现，但你只需要点动那个右下方的方框，选择“复制单元格”即可......
如何按指定个数在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教程
相关文章