循環搜索並打印範圍內的唯一值

Question

我有一個值列表，在表中，我有這些相同的值展開。

我需要某種循環，可以搜索1x20列表並打印第一個不在表格中的值，而不必編寫大量的countif（）語句。有沒有辦法做得更快？

Answer 1

當然，您需要一個單元格範圍的循環並測試值是否存在。您需要發佈更多代碼才能給出具體示例，但這應該讓您開始：

Sub LoopExampleUsingRange() 

Dim aCell As Range 
For Each aCell In ActiveSheet.Range("A1:A20").Cells 

If InStr(1, "SOME TEXT/table/OR A CELL VALUE TO S", aCell.Value) Then 
    'if it exists put here 
    'Perhaps do nothing? 

Else 
    'if doesn't exist put some code here. 

End If 


Next aCell 

End Sub