[發問] 請問如何找出重複批號

PD961A

請問各位先進
請問要在G欄找出重複批號
公式要如何寫?
謝謝...

下載 (95.31 KB)

2010-7-7 07:52

生產計畫表.rar (13.06 KB)

下載次數: 18

2010-7-7 07:52

PD961A

回復  PD961A
既然不想多一欄輸入公式,而採用VBA,又怕顏色太亂,又要知道哪幾格重複,那就用註解物件儲存如 ...
Hsieh 發表於 2010-7-11 23:12

版主
謝謝您
程式改好了可以適用..

下載 (30.08 KB)

2010-7-12 13:00

謝謝..

PD961A

正規化資料表

爛表格害人


一小時後銷毀
老夏 發表於 2010-7-12 07:58

    謝謝夏版主
我會改進的
謝謝您....

Hsieh

回復 22# PD961A
既然不想多一欄輸入公式,而採用VBA,又怕顏色太亂,又要知道哪幾格重複,那就用註解物件儲存如何?

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim Rng As Range, A As Range, d As Object
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. If Target.Column <> 7 Then Exit Sub
   
5. For Each A In Range("G13:G65536").SpecialCells(xlCellTypeConstants)
   
6. If Application.CountIf(Columns("G"), A) > 1 Then
   
7.   If IsEmpty(d(A.Value)) Then
   
8.      Set d(A.Value) = A
   
9.   Else
   
10.      Set d(A.Value) = Union(d(A.Value), A)
    
11.   End If
    
12. End If
    
13. Next
    
14. For Each A In Range("G:G").SpecialCells(xlCellTypeConstants)
    
15.    If Not IsEmpty(d(A.Value)) Then
    
16.       For Each Rng In d(A.Value)
    
17.          If Rng.Comment Is Nothing Then
    
18.             Rng.AddComment.Text Text:=d(A.Value).Address(0, 0)
    
19.             Else
    
20.             Rng.Comment.Text Text:=d(A.Value).Address(0, 0)
    
21.          End If
    
22.       Next
    
23.     End If
    
24. Next
    
25. End Sub

複製代碼

PD961A

回復 29# gong

謝謝GONG版主
    資料錯了一位
應改成=COUNTIF($G$13:$G13,$G13)>1
或改為=COUNTIF($G$12:$G12,$G13)>=1
如果從13列開始即包含本身,公式要把>=1,的"="拿掉才會正確顯示
所以這是錯誤點的地方
非常謝謝您...

gong

回復  gong


    另外您說修正
  如果從13列開始即包含本身,公式要把>=1,的"="拿掉
才會正確顯示
結 ...
PD961A 發表於 2010-7-11 16:16

你的g13格式化條件設
=COUNTIF($G$13:$G53,$G54)>1
這樣的範圍錯了,條件天差地遠當然無法顯示正確值


應該是
=COUNTIF($G$13:$G13,$G13)>1
這樣的意思是從第13列起包含本身如果有1個以上的重覆,則填上條件格式的藍底色
(14列以下的資料在本公式內暫時不計)
你原來的公式範圍不正確,條件位置也不對

gong

回復 27# PD961A


    g13的格式化條件
=COUNTIF($G$13:$G13,$G14)>=1
資料錯了一位
應改成
=COUNTIF($G$13:$G13,$G13)>1
或改為
=COUNTIF($G$12:$G12,$G13)>=1

PD961A

回復 26# gong


    另外您說修正
  如果從13列開始即包含本身,公式要把>=1,的"="拿掉
才會正確顯示
結果設定後是不會變色...步驟哪裡有問題?
感謝您....

下載 (13.52 KB)

2010-7-11 16:15

gong-2.rar (22.42 KB)

下載次數: 2

2010-7-11 16:15

另外謝謝您o13
=if(countif($g$13:$g13,$g13)=1,"","重覆") 的公式..謝謝

PD961A

回復 25# gong


    謝謝GONG版主
檔案設定格式是一樣的(沒有另外手動設定)
但是代出的值就是怪怪的

下載 (3.96 KB)

2010-7-11 16:12

gong-1.rar (22.51 KB)

下載次數: 2

2010-7-11 16:12

謝謝您

gong

最後另外試
   3.正在試另一種加欄位(既然都要加欄位的話)用公式顯示"重複批號"在儲存格中直接顯示



...
PD961A 發表於 2010-7-11 10:35

o13
=if(countif($g$13:$g13,$g13)=1,"","重覆")