检查范围内的每个单元格为特定的string？

我想要一个VBA代码，通过它我可以检查特定文本范围内的每个单元格？

EG: for each cell in range (a:a) if value of cell = "specific text" do this else do that 

*

如何在VBA Excel中做到这一点？

Answer 1

在这里你去，但请尝试find谷歌首先

 Sub eachCell() Dim c As Range For Each c In Range("A1:D21") If (c.Value = "mytext") Then 'if value of cell = "specific text" c.Value = "other text" 'do this Else c.Value = "other text 2" 'do that End If Next c End Sub 

Answer 2

使用Find循环会比查看每个单元更快

 Sub Sample_Find() Dim rng1 As Range Dim rng2 As Range Dim bCell As Range Dim ws As Worksheet Dim SearchString As String Dim FoundAt As String Set ws = Worksheets(1) Set rng1 = ws.Columns(1) SearchString = "specific text" Set rng2 = rng1.Find(SearchString, , xlValues, xlWhole) If Not rng2 Is Nothing Then Set bCell = rng2 FoundAt = rng2.Address MsgBox "do something here " & FoundAt Do Set rng2 = rng1.FindNext(After:=rng2) If Not rng2 Is Nothing Then If rng2.Address = bCell.Address Then Exit Do FoundAt = FoundAt & ", " & rng2.Address MsgBox "do something here " & rng2.Address Else Exit Do End If Loop Else MsgBox SearchString & " not Found" Exit Sub End If MsgBox "The Search String has been found these locations: " & FoundAt Exit Sub End Sub 

Answer 3

另一个选项来回答您的post，使用自动AutoFilter 。

码

 Option Explicit Sub Test_AutoFilter() Dim ws As Worksheet Dim SearchString As String Dim Rng As Range Dim VisRng As Range Dim c As Range Set ws = Worksheets(1) Set Rng = ws.Columns(1) SearchString = "specific text" Rng.AutoFilter Rng.AutoFilter Field:=1, Criteria1:=SearchString ' set another range to only visible cells after the Filter was applied Set VisRng = ws.Range(Cells(1, 1), Cells(1, 1).End(xlDown)).SpecialCells(xlCellTypeVisible) If Not VisRng Is Nothing Then ' Option 1: show every cell that a SearchString was found For Each c In VisRng MsgBox "String match of " & SearchString & " found as cell " & c.Address Next c ' Option 2: show all the cells that SearchString was found (in 1 message) MsgBox "String match of " & SearchString & " found as cells " & VisRng.Address End If End Sub