返回列表 上一主題 發帖

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

回復 29# gong

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

TOP

回復 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
複製代碼
學海無涯_不恥下問

TOP

正規化資料表

爛表格害人


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



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

TOP

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


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

1.jpg
2010-7-12 13:00


謝謝..

TOP

        靜思自在 : 【時日莫空過】一個人在世間做了多少事,就等於壽命有多長。因此必須與時間競爭,切莫使時日空過。
返回列表 上一主題