求如何使用EXCEL的函数实现数字的不重复排列与组合,用VBA也行!

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/04/30 18:38:24

求如何使用EXCEL的函数实现数字的不重复排列与组合,用VBA也行!
如图所示：要求将A列所在的数字全部排进“百位数”所有列里,将B列所有的数字全部排进“十位数”所在列里,将C列所有的数字全部排进“个位数”所在列里,使百位数、十位数、个位数形成一个分别对应A、B、C列不重复的所有的三位数组合!

你是说排成
138
139
135
.
068
069
.
067
这样的所有的吗?
代码如下
Sub test()
Dim arr, brr(), x&, y&, j&, i&, str1$
Dim d As Object
Set d = CreateObject("scripting.dictionary")
arr = Range("A1").CurrentRegion
For x = 1 To UBound(arr)
If arr(x, 1) "" Then
For y = 1 To UBound(arr)
If arr(y, 2) "" Then
For j = 1 To UBound(arr)
If arr(j, 3) "" Then
str1 = arr(x, 1) & arr(y, 2) & arr(j, 3)
If Not d.exists(str1) Then
i = i + 1
d(str1) = i
ReDim Preserve brr(1 To 3, 0 To i)
brr(1, i) = arr(x, 1)
brr(2, i) = arr(y, 2)
brr(3, i) = arr(j, 3)
End If
End If
Next j
End If
Next y
End If
Next x
brr(1, 0) = "百位数"
brr(2, 0) = "十位数"
brr(3, 0) = "个位数"
Columns("E:G").ClearContents
Range("E1").Resize(UBound(brr, 2) + 1, 3) = Application.Transpose(brr)
End Sub
运行这个宏即可得到不重复的数

求如何使用EXCEL的函数实现数字的不重复排列与组合,用VBA也行! 在EXCEL中,如何同时求多组数据的百分位数?打算用VBA实现,在VBA中求一组数据的百分位数的函数是什么? EXCEL如何使用函数让两列中重复的数字显出来. excel用函数求排列与组合? VBA找单元格对应重复的数字排列与组合：用数字1、2、3、0可以组成多少个没有重复的三位数?如果允许数字重复,那么共可以组成·· 关于EXCEL中数字和字母组合的排列问题 123456789个数字,呈十字型排列,横向与纵向相加的和值都为24,而这9个数字又不重复,请问如何排列高二数学,排列与组合用0,1,2,3,4,5可以排出没有重复数字且大于3240的四位数多少个?排列的题,弄不明白了,求过求：excel中如何统计重复出现数字的“重复次数”,并且统一显示 VBA从26个英文字母中选取5个进行组合把所有组合的情况用excel VBA编辑并输出到txt文件. excel 排列与组合