0到數字，任意4位陣列合，數字不重複，如何用excel

1樓：姓王的

用以下復巨集制**可達到目的：

sub 四位

陣列合()

for a1 = 1 to 9

for a2 = 0 to 9

if a2 <> a1 then

for a3 = 0 to 9

if a3 <> a1 and a3 <> a2 thenfor a4 = 0 to 9

if a4 <> a1 and a4 <> a2 and a4 <> a3 then

n = n + 1

range("a" & n) = a1 & a2 & a3 & a4end if

end if

end sub

2樓：匿名使用者

共有210個。見

附表：版

sub 巨集

3樓：匿名使用者

@復nhking 「回答

的2023年bai6月12日回答210組，列出du才209個組zhi合，漏了那一組dao合，望大家複核解答補充

4樓：匿名使用者

單元格縱列，右鍵，選單元格格式，自定義，0000

輸入函式 =rand()*10000

數字0-9十個數字組合成4位數最多有幾種不重複的組合

5樓：賣血買房者

解：首位數字有1-9 9種選擇

其次是9種選擇

再次是8種選擇

最後是7種選擇

組合有9×9×8×7=4536種

6樓：李紅

根據乘法原抄理來做

乘法原理：bai

做一件事，完成它需要分成n個步驟du，做第一步有m1種不同zhi的方法dao，做第二步有m2種不同的方法，……，做第n步有mn種不同的方法，那麼完成這件事共有n＝m1×m2×m3×…×mn種不同的方法．

要組成四位數分成4個步驟，第一步看千位數不能為0，要不然就不是4位數了，有1-9共9個數可填；第二步填百位上數，0-9共10個數，由於千位上用掉一個了，那就還剩9個數可選；第三步填十位上的數，由於千位和百位各用掉一個，就剩8個數，所以有8個數可選，第4步填個位，就在剩下的7個數種選了！因此，組合成4位數共有：9*9*8*7=4536種不重複的組合！

7樓：樂培勝樹雀

數字可重複：

9000

(四位數從1000到9999共計9000個)；

數字不重複：10選4的排列

p(10,4)=10x9x8x7=

5040。

excel 1--10個數字不重複具體排列組合

8樓：時空來電

1、首先開啟電腦上的excel**，然後統計不重複的個數。

2、然後使用公式，=sumproduct(1/countif(a2:a9,a2:a9))。

3、使用公式後統計不重複的個數，便於在資料量大的情況下使用公式。

4、提取不重複的內容c2單元格輸入以下陣列公式，按ctrl+ shift+enter，向下複製。=index(a:a,1+match(,countif(c$1:

c7,a$2:a$9),))&"。

5、最後可以看到，使用公式提取不重複的內容的效果。

9樓：綠衣人敲門

條件1：不包含0

條件2：不得有重複數字

範圍：12345~98765

符合的數字有 57205個，

右擊工作表標籤→檢視**，把下面的**貼到vbe中，按f5執行，結果貼上到a列

sub chiefzjh()

dim mstr$, i, k%, tmp$, mdic

set mdic = createobject("scripting.dictionary")

mstr = "123456789"

for i = 12345 to 98765

if instr(i, "0") = 0 then 'no "o" exit

for k = 1 to 4 'no duplicate finger

if 5 - len(replace(i, mid(i, k, 1), "")) >= 2 then exit for

next k

mdic.add i, "" 'add to dic

end if

next i

i = mdic.count

range("a1").resize(i, 1) = worksheetfunction.transpose(mdic.keys)

end sub

10樓：匿名使用者

不用vb不好弄的！我用一種比較笨的演算法，然後用vba生成的，自己看附件哈，應該就是你說的那樣的，

option explicit

sub combin()

dim i, j, l, k, n, m

for i = 1 to 6

for j = i + 1 to 7

for l = j + 1 to 8

for k = l + 1 to 9

for n = k + 1 to 10

m = m + 1

sheet1.range("a" & m) = i & " " & j & " " & l & " " & k & " " & n

next n

next k

next l

next j

next i

end sub

0到數字，任意4位陣列合，數字不重複，如何用excel

求助0 9取其中數字任意組合4位數求所有數字組合

0到9三位數排列組合不重複有多少組

數字1到9任意排列出六位數為一組的數字一共能排列出幾個

0到數字，任意4位陣列合，數字不重複，如何用excel

求助0 9取其中數字任意組合4位數求所有數字組合

0到9三位數排列組合不重複有多少組

數字1到9任意排列出六位數為一組的數字一共能排列出幾個

相關推薦