hcm19522

=(COUNTIF($A$3:$M$33,A3)>1)*(MOD(COLUMN(A1),4)=1)

samwang

回復 10# coafort


剛剛發現您的資料有85種不一樣的
加了底色後也是找不容易找到同一個顏色
所以不建議加底色
謝謝

coafort

回復  coafort


可以直接附件檔案上傳即可，謝謝
samwang 發表於 2021-10-30 08:07

目前只有簡單重複的直接顯示紅色
但這樣分不清哪個跟哪個重複
因為成分股更新後常常會有新增或是刪除的
如果是手動找重複滿累人的還有遺漏的問題
再麻煩大大了
感恩大大
    123.rar (95 KB)

下載次數: 10

2021-10-30 09:10

samwang

回復 8# coafort


可以直接附件檔案上傳即可，謝謝

coafort

回復  coafort

請問方便提供檔案，也將顯示需求和結果的樣式，以便測試，謝謝
samwang 發表於 2021-10-29 17:08

  請問大大要如何給檔案
謝謝

samwang

回復 6# coafort

請問方便提供檔案，也將顯示需求和結果的樣式，以便測試，謝謝

coafort

感謝上面兩位大大解說
小弟沒表達好
我的意思是
有辦法自己判別相同的會顯示一樣顏色
不需要手動指定台積電=紅色
比方工作表裡面
只要有台積電就會自動顯示紅色
有聯電就會顯示黃色
這樣就不用自己找有重複的成分股

hcm19522

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

samwang

回復 1# coafort

請測試看看，謝謝
Sub test()
Arr = Range("a1:e7") '資料範圍
Cells.Interior.ColorIndex = 0 '無顏色
For j = 1 To UBound(Arr, 2): For i = 2 To UBound(Arr)
    If UCase(Arr(i, j)) = "A" Then Cells(i, j).Interior.ColorIndex = 3
    If UCase(Arr(i, j)) = "B" Then Cells(i, j).Interior.ColorIndex = 6
    If UCase(Arr(i, j)) = "C" Then Cells(i, j).Interior.ColorIndex = 5
Next i: Next j
End Sub

coafort

網路找 :設定格式化的條件
https://www.managertoday.com.tw/articles/view/57315
jeff5424 發表於 2021-10-28 23:05

抱歉~我沒說清楚我的需求
其實A B C那些是代表股票
因為有非常多
因為是從WEB匯入好幾檔ETF成分股資料
一段時間有些成分股會被剃除
有些會被加入
會一直變動
比方裡面有台積電的ETF
台積電顯示紅色
有聯電的顯示黃色
諸如此類
謝謝