Aşağıdaki şekilde çalışıyor.
For i = 7 To [d65536].End(3).Row
If WorksheetFunction.CountIf(Range("d7:d" & i), Cells(i, "d")) = 1 Then
ComboBox3.AddItem CStr(Cells(i, 4))
End If
Next
For i = 7 To [d65536].End(3).Row
If WorksheetFunction.CountIf(Range("d7:d" & i), Cells(i, "d")) = 1 Then
ComboBox3.AddItem CStr(Cells(i, 4))
End If
Next