excel，用这三个数（368）列出全部三位数 30
4个回答
展开全部
看着楼上几位提供着函数公式计算，非常钦佩，在此就贡献一下VBA程序处理的代码。
（一）如果三个数可以重复使用，那么将组合成27个数，其VBA程序代码如下：
Sub zuhey1()
'三个数均可重复使用的组合
Dim i1, i2, i3, i5, arr
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")
arr = Array(3, 6, 8)
For i1 = 0 To 2
For i2 = 0 To 2
For i3 = 0 To 2
i5 = i5 + 1
mysheet1.Cells(i5, 1) = arr(i1) & arr(i2) & arr(i3)
Next
Next
Next
End Sub
（二）如果三个数不可以重复使用，那么将组合成6个数，其VBA程序代码如下：
Sub zuhey2()
'三个数单独使用的组合
Dim i1, i2, i3, i5, arr
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")
arr = Array(3, 6, 8)
For i1 = 0 To 2
For i2 = 0 To 2
For i3 = 0 To 2
If i1 <> i2 And i1 <> i3 And i2 <> i3 Then
i5 = i5 + 1
mysheet1.Cells(i5, 2) = arr(i1) & arr(i2) & arr(i3)
End If
Next
Next
Next
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
任一单元格输入:
=IFERROR(SMALL(IF(LEN(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(ROW($333:$888),3,),6,),8,))=0,ROW($333:$888)),ROW(1:1)),"")
按CTRL+SHIFT+回车结束,下拉填充
=IFERROR(SMALL(IF(LEN(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(ROW($333:$888),3,),6,),8,))=0,ROW($333:$888)),ROW(1:1)),"")
按CTRL+SHIFT+回车结束,下拉填充
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
A1单元格输入
=IF(ROW()>27,"",LOOKUP(INT((ROW()-1)/9)+1,{1,2,3},{3,6,8})*100+LOOKUP(INT((ROW()-1)/3)+1,{1,2,3},{3,6,8})*10+LOOKUP(MOD(ROW(),3)+1,{1,2,3},{8,3,6}))
下拉
=IF(ROW()>27,"",LOOKUP(INT((ROW()-1)/9)+1,{1,2,3},{3,6,8})*100+LOOKUP(INT((ROW()-1)/3)+1,{1,2,3},{3,6,8})*10+LOOKUP(MOD(ROW(),3)+1,{1,2,3},{8,3,6}))
下拉
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
不重复使用就6个，重复使用就27个。
更多追问追答
追问
哪27个
追答
333
336
338
363
366
368
383
386
388
先给你罗列9个吧。百位数另两种也各9个。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
