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

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

1 个答案: