求如何使用EXCEL的函数实现数字的不重复排列与组合,用VBA也行!如图所示:要求将A列所在的数字全部排进“百位数”所有列里,将B列所有的数字全部排进“十位数”所在列里,将C列所有的数字
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/21 18:11:49
![求如何使用EXCEL的函数实现数字的不重复排列与组合,用VBA也行!如图所示:要求将A列所在的数字全部排进“百位数”所有列里,将B列所有的数字全部排进“十位数”所在列里,将C列所有的数字](/uploads/image/z/209636-44-6.jpg?t=%E6%B1%82%E5%A6%82%E4%BD%95%E4%BD%BF%E7%94%A8EXCEL%E7%9A%84%E5%87%BD%E6%95%B0%E5%AE%9E%E7%8E%B0%E6%95%B0%E5%AD%97%E7%9A%84%E4%B8%8D%E9%87%8D%E5%A4%8D%E6%8E%92%E5%88%97%E4%B8%8E%E7%BB%84%E5%90%88%2C%E7%94%A8VBA%E4%B9%9F%E8%A1%8C%21%E5%A6%82%E5%9B%BE%E6%89%80%E7%A4%BA%EF%BC%9A%E8%A6%81%E6%B1%82%E5%B0%86A%E5%88%97%E6%89%80%E5%9C%A8%E7%9A%84%E6%95%B0%E5%AD%97%E5%85%A8%E9%83%A8%E6%8E%92%E8%BF%9B%E2%80%9C%E7%99%BE%E4%BD%8D%E6%95%B0%E2%80%9D%E6%89%80%E6%9C%89%E5%88%97%E9%87%8C%2C%E5%B0%86B%E5%88%97%E6%89%80%E6%9C%89%E7%9A%84%E6%95%B0%E5%AD%97%E5%85%A8%E9%83%A8%E6%8E%92%E8%BF%9B%E2%80%9C%E5%8D%81%E4%BD%8D%E6%95%B0%E2%80%9D%E6%89%80%E5%9C%A8%E5%88%97%E9%87%8C%2C%E5%B0%86C%E5%88%97%E6%89%80%E6%9C%89%E7%9A%84%E6%95%B0%E5%AD%97)
求如何使用EXCEL的函数实现数字的不重复排列与组合,用VBA也行!如图所示:要求将A列所在的数字全部排进“百位数”所有列里,将B列所有的数字全部排进“十位数”所在列里,将C列所有的数字
求如何使用EXCEL的函数实现数字的不重复排列与组合,用VBA也行!
如图所示:要求将A列所在的数字全部排进“百位数”所有列里,将B列所有的数字全部排进“十位数”所在列里,将C列所有的数字全部排进“个位数”所在列里,使百位数、十位数、个位数形成一个分别对应A、B、C列不重复的所有的三位数组合!
求如何使用EXCEL的函数实现数字的不重复排列与组合,用VBA也行!如图所示:要求将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
运行这个宏即可得到不重复的数