编写一个 for 循环以查找从活动行到最后一个工作表末尾的值

Question

我有一个包含 4 个工作表的工作簿，每个工作表用于 2019 年的一个季度。
我想编写一个函数来检查活动单元格的输入是否是从活动单元格行到最后一个工作表末尾的副本。

Function checkDuplicate(ByVal ChangedCell As Range) As Boolean
     TelNo = ChangedCell.Value

     Range(ActiveCell.Address).Name = "StartCell"
     For i = ActiveSheet.Index To ActiveWorkbook.Worksheets.count
        Worksheets(i).Activate
        With Worksheets(i)
            Set rng = Cells.Find(What:=TelNo, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
        End With
Next i
Application.Goto "StartCell"
If rng Is Nothing Then
    checkDuplicate = False
Else
    checkDuplicate = True
End If

但是，它似乎甚至无法在活动单元格下方的行中找到重复的值。

Answer 1

就目前而言，您的循环是无用的。您可以使用完全相同的结果执行此操作：Set rng = Worksheets(4).Cells.Find(What:=TelNo, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

试试这个：

Function checkDuplicate(ByVal ChangedCell As Range) As Boolean
  TelNo = ChangedCell.Value

  Range(ActiveCell.Address).Name = "StartCell"
  Set rng = ActiveSheet.Cells.Find(What:=TelNo, After:=changedCell LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
  If Not rng Is Nothing And rng.Address <> ChangedCell.Address Then checkDuplicate = True

  If ActiveSheet.Index < ActiveWorkbook.Worksheets.Count Then
     For i = ActiveSheet.Index + 1 To ActiveWorkbook.Worksheets.count
        With Worksheets(i)
           Set rng = .Cells.Find(What:=TelNo, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
           If Not rng Is Nothing Then checkDuplicate = True
        End With
     Next i
   End If
End Function

请注意，我在 range.find 调用之前添加了 .。那是为了让With Worksheets(i) 生效。这也是我删除 Worksheets(i).Activate 的原因，因为在完全限定工作表时没有必要。
还有一点需要注意：Range(ActiveCell.Address).Name = "StartCell" 在 ActiveSheet 上被隐式调用。

一般情况下，您应该避免在代码中使用ActiveSomething，因为它会导致大量错误。