[發問] 請問儲存格資料比對

b9208

NN.rar (1.43 KB)

下載次數: 7

2011-11-24 20:13

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

GBKEE

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

下載 (110.56 KB)

2011-11-24 20:40

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

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

b9208

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

GBKEE

回復 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

回復 5# GBKEE

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

Hsieh

回復 6# b9208


    NN.zip (2.27 KB)

下載次數: 12

2011-11-25 10:20