標題: [發問] 請問儲存格資料比對 [打印本頁]

---

作者: b9208    時間: 2011-11-24 20:13     標題: 請問儲存格資料比對

[attach]8617[/attach]
如C欄料號，將出現相同料號之儲存格填滿黃色標示。
謝謝

---

作者: GBKEE    時間: 2011-11-24 20:40

本帖最後由 GBKEE 於 2011-11-24 20:53 編輯

回復 1# b9208
工作表 中選擇C欄後
工作表指令 格式->設定格式化的條件   
公式=COUNTIF(C:C,C1)>1
如圖

[attach]8618[/attach]

1. Sub Ex()
   
2.     Dim E As Range
   
3.     For Each E In Range("c2", [c2].End(xlDown))
   
4.         If Application.CountIf([c:c], E) > 1 Then
   
5.             E.Interior.ColorIndex = 6
   
6.         Else
   
7.             E.Interior.ColorIndex = xlNone
   
8.         End If
   
9.     Next
   
10. End Sub

複製代碼

---

作者: b9208    時間: 2011-11-24 22:15

回復 2# GBKEE
非常感謝 GBKEE 大大
程式碼可以使用
:)
:P

---

作者: b9208    時間: 2011-11-24 23:33

回復 2# GBKEE
再請教比對結束後，
統計C欄中黃色儲存格數量。
謝謝

---

作者: GBKEE    時間: 2011-11-25 07:54

回復 4# b9208

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Range, S As Integer
   
4.     For Each E In Range("c2", [c2].End(xlDown))
   
5.         If Application.CountIf([c:c], E) > 1 Then
   
6.             E.Interior.ColorIndex = 6
   
7.             S = S + 1
   
8.         Else
   
9.             E.Interior.ColorIndex = xlNone
   
10.         End If
    
11.     Next
    
12.     If S > 0 Then MsgBox "重複項目計 : " & S
    
13. End Sub

複製代碼

---

作者: b9208    時間: 2011-11-25 08:44

回復 5# GBKEE

今早搭車上班途中，已想到加入計數器，就可解決了。
看到版大熱心的幫忙完成。
就甘心
謝謝版大

---

作者: Hsieh    時間: 2011-11-25 10:20

回復 6# b9208


    [attach]8624[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)