Question

我想在我的Excel工作表中搜索以单个数字，句号和空格开头的任何字符串，但这不起作用：

Cells.Find(What:="[0-9]. ", After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Select

运行时错误91 - 对象变量或未设置块变量。

Answer 1

.Find不允许使用此类搜索，请使用此方法：

Sub test()
Dim ocell As Range, Result$
For Each ocell In ActiveSheet.UsedRange
    If ocell.Value Like "[0-9. ]*" Then
        Result = Result & ocell.Address & Chr(10)
    End If
Next
MsgBox Result
End Sub

如何在VBA中搜索通配符号码？

1 个答案: