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"。

原来都是打错了。

VBA 找到值后举旗

VBA Raise a Flag once a value is found

excel

vba

find