- 帖子
- 2808
- 主題
- 10
- 精華
- 0
- 積分
- 2864
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-5-19
|
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
Ｂ欄填什麼色（自行選定），Ｅ欄跟著填同樣顏色∼∼ |
|
發表於 2015-11-4 18:23
| 
