如何在整个工作表中找到包含字符串的单元格

Question

我想在包含特定字符串的工作表中找到单元格。

我不知道电子表格中会有多少列或行，因此我想用CurrentRegion来做。

这就是我努力：

=FIND("Data String", Range("A1").CurrentRegion) 

Answer 1

你应该看看到Microsoft参考文献：Range.Find Method (Excel)。

.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat) 

实施例：

Dim rngFound as Range 
With Worksheets("MySheetName").Cells 
    Set rngFound = .Find("MySearchString", LookIn:=xlValues) 
    If Not rngFound Is Nothing Then 
     'something is found 
    else 
     'nothing found 
    End If 
End With 

搜索整个片

Answer 2

尝试这个

FindString = Sheets("Sheet1").Range("D1").Value 

----------这将选择下一个Cell范围内的inputbox值

Sub Find_First() 
Dim FindString As String 
Dim Rng As Range 
FindString = InputBox("Enter a Search value") 
If Trim(FindString) <> "" Then 
    With Sheets("Sheet1").Range("A:A") 
     Set Rng = .Find(What:=FindString, _ 
         After:=.Cells(.Cells.Count), _ 
         LookIn:=xlValues, _ 
         LookAt:=xlWhole, _ 
         SearchOrder:=xlByRows, _ 
         SearchDirection:=xlNext, _ 
         MatchCase:=False) 
     If Not Rng Is Nothing Then 
      Application.Goto Rng, True 
     Else 
      MsgBox "Nothing found" 
     End If 
    End With 
    End If 
End Sub 

Find Value