0-8四位数相加得八的全排列在excel中如何实现，例如 8-0-0-0，0-8-0-0，7-1-0-0....

请问怎么请EXCEL 0 1 2 3 4 5 6 7 8 9 四位数全部排列组合啊？~

用下面的VBA代码运行一下就会在当前工作表的 A列填充出全部组合

VBA代码用法：
'按alt+f11进入VBE编辑窗口，然后选择插入----模块----会打开一个模
'块窗口，把下面的代码复制进去--保存，再次按alt+f11返回excel窗口
'按alt+f8打开运行宏窗口，会看到test宏，运行它就可以了

Option Explicit

Sub test()
Dim i As Integer, j As Integer, l As Integer, n As Integer, k As Long
For i = 0 To 9
For j = 0 To 9
For l = 0 To 9
For n = 0 To 9
k = k + 1
ActiveSheet.Range("a" & k) = "'" & i & j & l & n
Next
Next
Next
Next
End Sub

按楼主要求，做脚本小工具。这个工具可以手工输入5个数，排出使用这5个数组成的全部7位数。

'WINDOWS下，将以下代码复制到记事本，保存后修改后缀名为“.VBS”。
'双击运行10秒钟直至弹出“完成”。
'结果文件保存在D盘下result_tools.txt。每5个数的结果文件大小均在295K左右。
'BY niminrenshi

on error resume next
rt =InputBox("请在对话框中输入0-9的5个不同数字。" &vbCrlf & "数与数之间用半角空格隔开。" & vbCrlf & "本次运算将会覆盖上次运算的结果文件，请注意保存。","5个数排成7位数小工具","0 1 2 3 4")
rt =Trim(rt)
if rt = vbCancel or rt = "" then
Wscript.Quit
End if
rt =Split (rt," ")


set fso = CreateObject ("SCripting.FileSystemObject")
set hw = fso.CreateTextFile ("D:esult_tools.txt",true,-2)
set wshshell = CreateObject("WScript.Shell")
dim shuzu (8)

for i1 = 0 to 4
for i2 = 0 to 4
for i3 = 0 to 4
for i4 = 0 to 4
for i5 = 0 to 4
for i6 = 0 to 4
for i7 = 0 to 4
nnum = i1 & i2 & i3 & i4 & i5 & i6 & i7
shuzu(1) = i1
shuzu(2) = i2
shuzu(3) = i3
shuzu(4) = i4
shuzu(5) = i5
shuzu(6) = i6
shuzu(7) = i7

for m = 1 to 6
for n = m +1 to 7
if shuzu(m) > shuzu (n) then
t = shuzu(m)
shuzu(m) = shuzu(n)
shuzu(n) = t
end if
next
next

numgs = 0
for m = 2 to 7
if shuzu(m) = shuzu(m-1) then
numgs = numgs + 1
end if
next

if numgs = 2 then
hw.WriteLine nnum
end if
next
next
next
next
next
next
next

hw.Close
MsgBox "完成"
Wscript.Quit
'代码结束

A1输入公式
=IF(SUMPRODUCT(--MID(ROW(A1),ROW(INDIRECT("1:"&LEN(ROW(A1)))),1))=8,ROW(A1),"")
下拉至8000行
B1输入公式
=IF(ISERR(LARGE(A:A,ROW(A1))),"",TEXT(LARGE(A:A,ROW(A1)),"0-0-0-0"))
公式下拉直至出现空格即可
所有的数会显示在B列

说个笨方法
在A1输入1000，以序列方式向下填充至8000
在B1输入公式
=IF((LEFT(A1)+MID(A1,2,1)+MID(A1,3,1)+RIGHT(A1))=8,A1,"")
再全选B列，菜单栏上点选 数据--筛选--自动筛选
点击B列的小倒三角按钮
滑动条拉到最下面，点选“非空白”即可

任意单元格中输入
=SMALL(IF(MMULT(--MID(ROW($1007:$8000),{1,2,3,4},1),{1;1;1;1})=8,ROW($1007:$8000)),ROW(A1))
同时按下CTRL+SHIFT+ENTER输入数组公式，用自动填充柄下拉119行。

后面好多省略号。。。

---

海西蒙古族藏族自治州18628153582： 一个四位数之和等于8,且每位数字不相同,能组成多少个数 - ？
皇成莲芪： 四位数之和等于8,那么它只有2种情况可取:四位数字分别是0,1,2,5 或 0,1,3,4. 根据分布乘法计数原理,0一定不会是千位数字,那么组成的数有3*3*2+3*3*2=36种. 能组成36个数.

海西蒙古族藏族自治州18628153582： 一个四位数字之和是八且各位止的数字各不同这个四位数可能是多少?这样的四位数一共有多少个? - ？
皇成莲芪： 这样的四个数字只能是 0+1+2+5=8或者0+1+3+4=8 其中每种的组合数为 4*3*2*1-3*2*1=18 总的个数为18*2=36 如:1025、1052、2015、2051、5012、5021、5102、5120

海西蒙古族藏族自治州18628153582： 请问怎么请EXCEL 0 1 2 3 4 5 6 7 8 9 八位数全部排列组合啊? 谢谢谢谢了 - ？
皇成莲芪： 全部排列组合1.总共10个数 2.八位数排列,那么 第一个数肯定不能为0注意上面两个问题就好办了10个数中随便取8个数排列组合 减去 第一个数是...

海西蒙古族藏族自治州18628153582： 0到9十个数字,组成无重复的四位 数,要求百位与个位数字之差的绝对 值为8,共多少种情况 - ？
皇成莲芪： 你好 百位与个位数学之差的绝对值为8,有以下四种情况,百位 个位9 18 01 90 8 当是0、8组合时,其他数字为全排列A(8,2) 当是1、9组合时,其他数字还要考虑首位不能为0,所以是7*7 所以共有2*A(8,2)+2*7*7=2*56+2*49=2*105=210种 共有210种情况 【数学辅导团】为您解答,不理解请追问,理解请及时选为满意回答!(*^__^*)谢谢!

海西蒙古族藏族自治州18628153582： 用四个“2”,四个“0”组成八位数有哪些 - ？
皇成莲芪： 用四个“2”,四个“0”组成八位数 0肯定不能在首位,那只有2在首位 还剩下三个“2”,四个“0”之间 根据排列组合得,先把7个数全排列有A(7,7)种 又因为三个“2”之间没有差别,四个“0”之间没有差别 所以共有A(7,7)÷A(3,3)÷A(4,4)=35种

海西蒙古族藏族自治州18628153582： 在所有的四位数中,各位数字之和是35的数共多少个 - ？
皇成莲芪： 因为在0-9之间四个数加起来能等于35的,只有8、9、9、9 这四个数,所以在所有四位数中,各位数字之和等于35 的四位数只能由 8 、9、 9、 9 来组合.把8、9、9、9这四个数字依次排列分别是8 999、9 899、9 989、9 998.

海西蒙古族藏族自治州18628153582： 从o到9的数字,任意两个数相加的和等于8怎么算! - ？
皇成莲芪： 1+7 2+6 3+5 4+4 0+8

海西蒙古族藏族自治州18628153582： 0到9排列4位数.可以排列多少组.分别是多少. - ？
皇成莲芪： C10 4=10*9*8*7*/(1*2*3*4)=210 0到9可以排列210组4位数 数字不重复 不能同时有1234 4321 2314 3214 这样的

海西蒙古族藏族自治州18628153582： 四个数加起来是8的四位数有几个? - ？
皇成莲芪： 8*7*6*5个=1680个

海西蒙古族藏族自治州18628153582： 1、5、8、0,可以组成多少个不同的四位数,把这些数相加所得的和是偶数还是奇数? - ？
皇成莲芪： 每个数字不重复使用. 4个数字全排列,再减去0在首位的情况. 4*3*2-3*2=18 有18个. 因为个位数是1和5时是奇数,其他情形是偶数. 而偶数个奇数之和也是偶数. 所以这些数字相加的和是偶数.