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

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