取Sing.Range(“J”& i)中的值并在AmountRage范围内查找它们。它目前正在努力寻找匹配,但当我希望它返回行号时,它会一直给我“0”。
For i = 2 To SingLast
On Error Resume Next
Set FindStringSing = AmountRange.Find(Sing.Range("J" & i))
If FindStringSing Is Nothing Then
Else
x = FindString.Row
MsgBox x
AvisarSing
End If
Next i