楼主请教一个问题
Sub f7() '查找不到的情况
Dim MRG As Range
Set MRG = Range("A:A").Find("D")
If MRG Is Nothing Then
MsgBox "查找不到字母D"
Else
MsgBox "查找成功,单元格地址为:" & MRG.Address
End If
End Sub
在这个事例中,我将Find("D")中的D,更改为一个变量之后就搜索不到了
Sub f7() '查找不到的情况
Dim MRG As Range
sfz1 = "1"
Set MRG = Range("A:A").Find("&sfz1")
If MRG Is Nothing Then
MsgBox "查找不到字母D"
Else
MsgBox "查找成功,单元格地址为:" & MRG.Address
End If
End Sub
求指教,谢谢了