返回列表 上一主題 發帖

如何找出現二次以上的數字？

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
61  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-3-12 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2012-2-4 15:39 | 顯示全部帖子
回復 1# q1a2z5
H3陣列公式
=IF(COLUMN(A1)>SUM(IF(COUNTIF($A$1:$F$15,$A$1:$F$15)>=2,1/COUNTIF($A$1:$F$15,$A$1:$F$15),0)),"",SMALL(IF(COUNTIF($G$3:G3,IF(COUNTIF($A$1:$F$15,$A$1:$F$15)>=2,$A$1:$F$15,""))=0,IF(COUNTIF($A$1:$F$15,$A$1:$F$15)>=2,$A$1:$F$15,""),""),1))
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
61  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-3-12 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-2-5 22:26 | 顯示全部帖子
本帖最後由 Hsieh 於 2012-2-5 22:28 編輯

回復 4# q1a2z5
H1=B1&","&C1&","&D1&","&E1
向右向下複製
L2陣列公式
=INDIRECT("R"&MOD(SMALL(IF((COUNTIF($L$1:L1,$H$1:$J$12)=0)*(COUNTIF($H$1:$J$12,$H$1:$J$12)=2),COLUMN($H$1:$J$12)*100+ROW($H$1:$J$12),""),1),100)&"C"&INT(SMALL(IF((COUNTIF($L$1:L1,$H$1:$J$12)=0)*(COUNTIF($H$1:$J$12,$H$1:$J$12)=2),COLUMN($H$1:$J$12)*100+ROW($H$1:$J$12),""),1)/100),0)
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
61  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-3-12 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2012-2-10 00:11 | 顯示全部帖子
回復 6# q1a2z5
這用函數解不出來
  1. Sub nn()
  2. Dim Ay()
  3. Set d = CreateObject("Scripting.Dictionary")
  4. Set d1 = CreateObject("Scripting.Dictionary")

  6. ar = [B1:G12].Value
  7. For r = 1 To 12
  8. For i = 1 To 3
  9.    For j = i + 1 To 6
  10.       For x = j + 1 To 6
  11.          For y = x + 1 To 6
  12.          mystr = Join(Array(ar(r, i), ar(r, j), ar(r, x), ar(r, y)), ",")
  13.          d1(mystr & r) = d1(mystr & r) + 1
  14.          If d1(mystr & r) = 1 Then d(mystr) = d(mystr) + 1
  15.          Next
  16.       Next
  17.    Next
  18. Next
  19. Next
  20. For Each ky In d.keys
  21.    If d(ky) = 2 Then
  22.    ReDim Preserve Ay(s)
  23.    Ay(s) = ky
  24.    s = s + 1
  25.    End If
  26. Next
  27. [H4].Resize(s, 1) = Application.Transpose(Ay)
  28. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題