获取包含带有通配符的特定文本的单元格的引用

其实这个问题的答案已经在这里了。

获取包含特定文本的单元格的引用

这可以在不使用macros的情况下完成，

但是我遇到的问题是我想用一个通配符search某个文本。

example: DOM???text

Answer 1

您可以replaceLike操作符的InStr()函数。 代码看起来像：

 Public Function WhereIs(rIn As Range, sIn As String) As String WhereIs = "" Dim r As Range For Each r In rIn If r.Text Like sIn Then WhereIs = r.Address(0, 0) Exit Function End If Next r End Function 

你必须确保你的sInstring有正确的通配符。

Answer 2

尝试这个。 只需运行它并在对话框中search该单词即可。 然后它会给你的单元格的参考。

 Option Explicit Private Sub FindText() Dim ws As Worksheet Dim FindString As Variant Dim rng As Range Set ws = ThisWorkbook.Worksheets("Sheet1") FindString = InputBox("Search for value") If Trim(FindString) <> "" Then Set rng = ws.Cells.Find( _ What:=FindString, _ LookIn:=xlValues, _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False, _ SearchFormat:=False) If Not rng Is Nothing Then MsgBox rng.Address Else MsgBox "Nothing found" End If End If End Sub