循环搜索并打印范围内的唯一值

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