查找范围单元格

Question

您对以下代码无效的原因有任何疑问吗？

begin=1    
Set FoundCell = ws.Range(Cells(begin,6),Cells(200000,6)).Find(What:=Content(i))

它说没有找到对象，如果不是Cells(begin,6),Cells(200000,6)我放"F:F"它确实有效。但我需要动态地给出搜索的起点（即begin）

Answer 1

如果你没有定义＆＃34; Parent＆＃34;工作表，然后VBA假定＆＃34;父母＆＃34;工作表是ActiveSheet。在这里：

ws.Range(Cells(begin,6),Cells(200000,6))

你已经定义了＆＃34; Parent＆＃34;对于.Range()，但对于Cells，它未定义，因此它被认为是活动的，明显不同于ws。

通常，请确保始终定义Cells和Ranges应位于的工作表。像这样：

With ws
    Set FoundCell = .Range(.Cells(begin,6),.Cells(200000,6)).Find(What:=Content(i))
End With