Excelに問題がある場合はネストされますか？

Question

私は+ 19k行のエクセルテーブルを持っています。 テーブルに2つの列があるとしましょう（Departmant、id）。 それぞれがユニークなIDを持つ25の部門があります。

それぞれのIDを正しく取得するためにどのような式を使用できますか。

はそれを行うための簡単な方法があります..私はあれば使ってみましたが、私はそれでいた場合、それは+ 25で動作doesntの推測？

私は初心者です。私はこのテーブルで3日間作業しています！

Answer 1

MrExcel.comから取られました。未テスト

Sub FindDistinctValues() 
Dim LastRowFrom As Long 
Dim LastRowTo As Long 
Dim i As Long, j As Long 
Dim temp As Integer 
Dim found As Boolean 

'determines the last row that contains data in column A 
LastRowFrom = Range("A" & Rows.Count).End(xlUp).Row 

'Loop for each entry in column A 
For i = 2 To LastRowFrom 
    'get the next value from column A 
    temp = Range("A" & i).Value 

    'Determine the last row with data in column B 
    LastRowTo = Range("B" & Rows.Count).End(xlUp).Row 

    'initialize j and found 
    j = 1 
    found = False 

    'Loop through "To List" until a match is found or the list has been searched 
    Do 
     'check if the value exists in B column 
     If temp = Range("B" & j).Value Then 
     found = True 
     End If 
     'increment j 
     j = j + 1 
     Loop Until found Or j = LastRowTo + 1 

    'if the value is not already in column B 
    If Not found Then 
     Range("B" & j).Value = temp 
    End If 
Next i 
End Sub