Excel：特定のテーブル列、35K行内の文字列を正確に特定する（正確に）

Question

35000行のテーブルがあり、各行に固有の（英数字）IDが必要ですが、これを確認する必要があります。 countifを使用すると計算に時間がかかりますが、最も効率的なもの（最小の計算時間）は何でしょうか。

[ID] | [Occurences] 
[A7A8S8D9] | [<formula>] 
[F6F7F8F9] | [<formula>] 

Answer 1

VBAソリューションを気にしない場合は、最初のものを除くすべての重複IDの隣に「重複」が表示されます。

=RANDBETWEEN(1, 1000)を使用して作成した35,000の数値IDでテストしたところ、671msで実行されました。範囲を配列に渡すと、より速く実行されます。

'Remove line to remove timing. 
Private Declare Function GetTickCount Lib "kernel32"() As Long 

'Will not mark first occurrence as duplicate. 
Public Sub CheckForDuplicates() 

    Dim rng As Range 
    Dim rCell As Range 
    Dim dict As Object 

    'Remove next two lines to remove timing. 
    Dim TC As Long 
    TC = GetTickCount 

    'Update sheet name as required. 
    With ThisWorkbook.Worksheets("Sheet1") 
     'Defines range as A2 to last row containing data (providing there's no empty cells in col A). 
     '-1 at end of line as we're starting on row 2. 
     Set rng = .Range("A2").Resize(.Cells(Rows.Count, 1).End(xlUp).Row - 1) 
    End With 
    Set dict = CreateObject("Scripting.Dictionary") 

    With dict 
     For Each rCell In rng 
      If .Exists(rCell.Value) Then 
       rCell.Offset(, 1) = "Duplicate" 
      Else 
       .Add rCell.Value, rCell.Value 
      End If 
     Next rCell 
    End With 

    'Remove line to remove timing. 
    MsgBox GetTickCount - TC & "ms elapsed." 

End Sub