excel如何组合数字，如何显示所有百位十位个位的3位数字组合，

软件 2024-06-07

怎么样在excel上把1-20这些数字排列成3位数的所有数字组合全部显示出来，详细点的

A1=SMALL(IF((MID(ROW($100:$999),1,1)<>MID(ROW($100:$999),2,1))*(MID(ROW($100:$999),2,1)<>MID(ROW($100:$999),3,1))*(MID(ROW($100:$999),1,1)<>MID(ROW($100:$999),3,1)),ROW($100:$999),999),ROW()) 公式以CTRL+SHIFT+回车结束。将公式向下复制。

EXCEl数字自由组合

经过仔细分析和思考，公式进一步得到优化（当然，思路也发生了变化），仍然是数组公式（即在输入完公式后，按【CTRL+SHIFT+回车】后，在下拉或右拉填充公式）：

'下拉填充的公式为：
=TEXT(MID(A$2,(ROW(A1)-1)/PRODUCT(LEN(B$2:D$2))+1,1)&MID(B$2,MOD((ROW(A1)-1)/PRODUCT(LEN(C$2:D$2)),LEN(B$2))+1,1)&MID(C$2,MOD((ROW(A1)-1)/LEN(D$2),LEN(C$2))+1,1)&MID(D$2,MOD(ROW(A1)-1,LEN(D$2))+1,1),"[>999]0;")
'右拉填充的公式z在附件中
'是不是要比原来的公式简单了许多！！

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

你是说排成 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 Fo

怎么用excel来编写3位数字的所有组合

很简单的，在单元格A1输入 0，在A2输入 =A1+1，回车后再选中A2，按着A2右下角的“+”往下拖到第1000行，就有了所有的3位数字的组合。下面是我编写的代码，用于解Excel的数字密码，仅供参考。 Sub crack() Dim i As Long Dim FileName As String Application.ScreenUpdating = False i = 1 FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xlsx）,*.xls;*.xlsx", , "VBA破解") FileName = Right