papaya

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-3-23 17:17 | 只看該作者

取三區的重複值

測試檔 :

取三區的重複值.rar (2.14 KB)
將$B7:$K8和$B10:$K11和$B13:$K14三個區域的重複值，
由小而大從B17往右填入。

請問 : B17的2003版函數公式要怎麼編寫 ?
謝謝 !

樓主熱帖

hcm19522

大學生 Rank: 4

帖子: 1391
主題: 4
精華: 0
積分: 1401
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-12-16

熱烈參與勳章

2^#

發表於 2020-3-25 12:30 | 只看該作者

https://blog.xuite.net/hcm19522/twblog/589003673

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-12-22

3^#

發表於 2020-3-25 12:56 | 只看該作者

若各區自己沒有重覆值,
陣列公式:
=TEXT(SMALL(--TEXT(SUMIF($B13:$K14,SUMIF($B7:$K8,$B10:$K11)),"0;;99"),COLUMN(A1)),"[<99]0;;")
右拉~~

TOP

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

4^#

發表於 2020-3-25 13:09 | 只看該作者

回復 2# hcm19522
回復 3# 准提部林
感謝二位大大的幫忙和解答!
不知能否不用TEXT，因為文字形態，無法格式設定。
--TEXT(.........)，是可以成為數值的形態，但多拉的儲存格(因為符合條件的數值個數不定)會顯示"#VALUE"
謝謝二位大大^^

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-12-22

5^#

發表於 2020-3-25 14:23 | 只看該作者

=IF(COLUMN(A1)>SUM(N(COUNTIF($B7:$K14,ROW(1:39))=3)),"",SMALL(IF(COUNTIF($B7:$K14,ROW(1:39))=3,ROW(1:39)),COLUMN(A1)))

TOP

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

6^#

發表於 2020-3-25 14:36 | 只看該作者

回復 5# 准提部林
版主大大 : 您好!
謝謝您的耐心幫忙!
OK了~感恩^^

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

7^#

發表於 2023-12-14 09:32 | 只看該作者

謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列與字典,學習方案如下,請各位前輩指教
執行前:

執行結果:

Option Explicit
Sub TEST()
Dim Brr, Crr(1 To 100), V&, Z, A, i&, N%, xA As Range
'↑宣告變數,Crr變數是一維陣列,索引號1~100
Set Z = CreateObject("Scripting.Dictionary")
'↑令Z變數是字典
Set xA = [B7:K8]
'↑令xA變數是物件儲存格 [B7:K8]
For i = 0 To 2
'↑設順迴圈!令i從0 到2
Brr = xA.Offset(i * 3)
'↑令Brr變數是帶入迴圈區域儲存格值的二維陣列
For Each A In Brr
'↑設逐項迴圈!令A變數是Brr陣列裡的陣列值
   If Trim(A) = "" Then GoTo A01 Else V = Val(A)
   '↑如果A變數去除頭尾空白字元後是空字元!就跳到標示A01位置繼續執行,
   '否則就令V變數是 A變數轉成的數值
   If Z(V) = i Then Z(V) = i + 1
   '↑如果以V變數查Z字典回傳item值是同 i變數,就令其item值+1
   If Z(V) = 3 Then N = N + 1: Crr(N) = V: Z(V) = 0
   '↑如果以V變數查Z字典回傳item值是3 ,就令N變數累加1,
   '令第N變數個Crr陣列值是變數,令Z字典裡V變數key對應的item值是0
A01: Next
Next
With [B18].Resize(, N)
'↑以下是關於[B18]儲存格擴展向右N變數個儲存格區域的程序
.Value = Crr
'↑令該區域儲存格值以Crr陣列值帶入
.Sort KEY1:=.Item(1), Order1:=1, Header:=2, Orientation:=2
'↑令該區域做無標題的橫向順排序
End With
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

hcm19522

大學生 Rank: 4

帖子: 1391
主題: 4
精華: 0
積分: 1401
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-12-16

熱烈參與勳章

8^#

發表於 2023-12-14 15:16 | 只看該作者

(輸入編號12138) google網址:https://hcm19522.blogspot.com/

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP