198188

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-11-19

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2024-3-2 12:34 | 顯示全部帖子

跨欄對比

有三個表格，在表格“1”執行，
表格“1” 欄B 和欄G 兩樣分別在表格“KP" & "KH" 找尋，如果找到相同的數據。

舉例：
96089 & 5580 組合在KP 表裏找到
“1”表的欄M (Project) 傳回"KP"表的 "$A$1"
“1”表的欄O (KP) 傳回"KP"表的 "$C$1"

96183 & 4780 組合在 KP & KH 表裏都找到
"1”表的欄M (Project) 傳回"KP"表的 "$H$1" & "KH" 表的“$H$1", 兩者都是"BH" 相同，所以顯示"BH"
"1”表的欄N (KH) 傳回"KH"表的 "$J$1"
"1”表的欄O (KP) 傳回"KP"表的 "$J$1"

94851 & 5370 組合在 KH 表裏都找到
"1”表的欄M (Project) 傳回"KH"表的 "$A$1" &  "$H$1", 兩者不相同，所以顯示"BF/BH"
"1”表的欄N (KH) 傳回"KH"表的 "$C$1" &  "$J$1", 兩者都是“噴油”相同，所以顯示“噴油”

96093 & 5260 組合在 KH & KP表裏都找到
"1”表的欄M (Project) 傳回"KP"表的"$A$1" & "$H$1" & "KH" 表的"$A$1" & "$H$1", 四都是"BF/ BH/ BF/ BH" 相同，因爲重複，所以顯示"BF/ BH"
"1”表的欄N (KH) 傳回"KH"表的 "$C$1" &  "$J$1", 兩者都是“噴油”相同，所以顯示“噴油”
"1”表的欄O (KP) 傳回"KP"表的  "$C$1" &  "$J$1", 兩者都是“噴油”相同，所以顯示“噴油”

對比.rar (15.59 KB)

樓主熱帖

198188

高中生 Rank: 3 Rank: 3

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-11-19

2^#

發表於 2024-3-4 11:35 | 顯示全部帖子

回復 1# 198188

圖片是執行前及執行后效果，以及兩個資料庫 KP & KH。

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-11-19

3^#

發表於 2024-3-4 12:06 | 顯示全部帖子

回復 3# Andy2483

KH 資料表的 H1 儲存格

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-11-19

4^#

發表於 2024-3-4 16:23 | 顯示全部帖子

回復 5# Andy2483

運行VBA后，KP内是 H- J 欄沒有讀取出來，以至黃色部分不正確。
KP & KH 兩個表格裏，都有分別有兩份資料，欄 A - C & 欄 H - J

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-11-19

5^#

發表於 2024-3-4 18:18 | 顯示全部帖子

本帖最後由 198188 於 2024-3-4 18:20 編輯

回復 7# Andy2483

規則是一樣的，不過第一範例可能看到效果沒有那麽清楚，所以上載第二範例，請以這個回復的圖片爲例

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-11-19

6^#

發表於 2024-3-5 08:45 | 顯示全部帖子

回復 10# Andy2483

xA.Offset(1, 12).ClearContents: Brr = xA
'↑令xA儲存格偏移下1列右12欄的區域儲存格內容清除,令Brr變數是以xA儲存格值帶入的二維陣列

這句清除内容，它是從第13欄(欄M) 到第19欄 (欄S) 的内容清除，我需要的只是第13欄欄M - 第15欄欄O, 我需要怎樣修正，才能讓他不把欄P - 欄S的資料清除？

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-11-19

7^#

發表於 2024-3-5 08:58 | 顯示全部帖子

回復 12# Andy2483

可以了，謝謝！

Set xA = Range([1!G1], [1!A65536].End(3))
Intersect([1!M:O], xA.Offset(1, 12)).ClearContents: Brr = xA
Arr = [1!M1].Resize(UBound(Brr), 3)
[1!M1].Resize(UBound(Brr), 3) = Arr
另外如果我執行的工作表不固定名稱，怎樣修改為用activesheet?

TOP

198188