一旦找到一个值，VBA就会升起国旗。

Question

一旦使用.Find方法找到一个值，我将试图引发一个标志。问题在于.Find。这不管用。它应该升起一个标志作为真实，但它不是。价值存在于Repasse.Range("A2:A" LastFindRange)中--它只是没有识别它们。有什么想法吗？

Dim Book As Workbook
Dim Calypso As Worksheet
Dim Repasse As Worksheet
Dim LastFindRange as Long
Dim LastCalypso as Long
Dim Flag as Boolean

Set Book = Workbooks("Novo Email - Caixa Offshore")
Set Calypso = Workbooks("Novo Email - Caixa Offshore").Worksheets("Calypso")
Set Repasse = Book.Worksheets("Exceções Repasse")
LastFindRange = Repasse.Cells(Rows.Count, "A").End(xlUp).Row
LastCalypso = Calypso.Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To LastCalypso
Flag = True
On Error Resume Next
Set FindSting = Repasse.Range("A2:A" & LastFindRange).Find(Calypso.Range("D" & i).Value)
If FindString Is Nothing Then
    Flag = False
Else: Flag = True
End If

Answer 1

我是个笨蛋。

我的范围是FindString，使用的是FindSting --没有"r“。

所以这都是个错误。