仅当范围中不存在值时才复制单元格 - VBA If 语句

Question

我想使用 If 语句，如果某个单元格的值不存在于某个范围内，则 If 语句为真，并且执行将单元格复制到不同工作表的操作。我遇到问题的代码部分是 -

If (Value < Date And CompletedValue = "") And (Cells(Examrow, 1).Value <> SummarySheet.Range(Cells(3, 1), Cells(100, 1)).Value) Then

代码在没有And Cells(Examrow, 1).Value <> SummarySheet.Range(Cells(3, 1), Cells(100, 1)).Value) Then 部分的情况下运行良好，所以我认为这是我出错的地方。

它应该查看单元格 (Examrow, 1)，获取值，然后将其与工作表 SummarySheet 中范围 A3:A:100 中的所有单元格进行比较。如果值不在指定的范围内，那么 if 语句应该做它的事情。

有什么想法吗？

编辑：

我得到的错误信息是： Error Message

Answer 1

添加错误消息后

编辑：

someWorksheet.Range 方法接受两个范围形式的参数。这些范围必须在工作表someWorksheet 上。如果您使用Cells(3, 1)，您不会告诉VBA 单元格在哪个工作表上，因此它会猜测您的意思是ActiveSheet。如果ActiveSheet 不是someWorksheet，您将收到错误消息，因为someWorksheet 的Range 方法无法处理来自另一个工作表的范围。答案显然是指定Cells(3, 1)和Cells(100, 1)的工作表：

SummarySheet.Range(SummarySheet.Cells(3, 1), SummarySheet.Cells(100, 1))

如果你还是硬编码，你也可以使用

SummarySheet.Range("A3:A100")

这显然也适用于您的其他单元格引用。

---

但是，在此之后您会收到一个新错误，因为您无法将单个值与数组进行比较。您要么必须遍历范围内的所有单元格，要么使用内置的.Find 方法：

someRange.Find(someValue)

将返回首次找到someValue 的单元格，如果未找到则返回Nothing。所以你只需要检查上面的Is Nothing：

If SummarySheet.Range("A3:A100").Find(Cells(Examrow, 1).Value) Is Nothing Then

您应该设置另一个 options 以满足您的需要，因为它们可以从以前的搜索中保存。

这可能看起来像这样：

Dim foundCell As Range 'to keep the If condition readable

Set foundCell = SummarySheet.Range("A3:A100").Find( _
    What:=yourValue, _
    LookIn:=xlValues, _
    LookAt:=xlWhole, _
    MatchCase:=True)

If (.....) And foundCell Is Nothing Then