請教不同欄重複的資料給予相同底色 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請教不同欄重複的資料給予相同底色

返回列表下一主題上一主題發帖

[發問] 請教不同欄重複的資料給予相同底色

版主 Rank: 7 Rank: 7 Rank: 7

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

1^# 跳轉到 »

發表於 2015-11-4 18:23 | 顯示全部帖子

Sub TEST()
Dim xR As Range, xF As Range
For Each xR In [B:B].SpecialCells(xlCellTypeConstants, 3)
　　Set xF = [E:E].Find(xR, Lookat:=xlWhole)
　　If Not xF Is Nothing Then xF.Interior.ColorIndex = xR.Interior.ColorIndex
Next
End Sub

Ｂ欄填什麼色（自行選定），Ｅ欄跟著填同樣顏色～～

版主 Rank: 7 Rank: 7 Rank: 7

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

2^#

發表於 2015-11-5 09:57 | 顯示全部帖子

回復 4# bhsm

我這測試沒問題, 兩個"R"不相同, 一個含有空白字元!
填底色程式碼, 可以用您的版本[錄製]即可取得, 試看看~~

版主 Rank: 7 Rank: 7 Rank: 7

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

3^#

發表於 2015-11-5 13:33 | 顯示全部帖子

回復 6# bhsm

我只有 OFFICE 2000, 測不了~~

靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。

返回列表下一主題上一主題