Windows 如何在列中选择多个单元格

到目前为止，我能够在输入框中输入一个单词，并让它返回该单词在某列中出现的次数。我希望它做的是选择输入单词出现的每个单元格。或者，突出显示单词所在的每个单元格。以下是我已经得到的：

Sub wordcounter()
Dim word As String
Dim count As Integer
word = InputBox(Prompt:="Enter word to search: ", Title:="Enter Word", Default:="Search        word")
For Each cell In ActiveSheet.UsedRange.Columns("G").Cells
    cell.Value = LCase(cell.Value)
    If InStr(cell.Value, word) Then
        cell.select
    End If
    If InStr(cell.Value, word) Then
        count = count + 1
    End If
Next cell
    MsgBox (word & " = " & count)
End Sub

---

此代码仅选择单词出现的最后一个单元格。关于如何选择包含单词的所有单元格而不仅仅是最后一个单元格，您有什么想法吗

而不是

单元格。选择

您可以通过使用以下选项将其设置为不同的颜色来突出显示：

cell.InteriorColor.Color = RGB(#, #, #)

---

我不确定你用这个做什么，希望这能帮上忙。

而不是

单元格。选择
你可以通过使用以下选项使它变成不同的颜色来高亮显示：

cell.InteriorColor.Color = RGB(#, #, #)

我不确定您使用它的目的是什么，希望这能有所帮助。
以下是我将如何使用它，完全避免循环以加速和简化：

Sub sWordcounter()
Dim sWord As String
Dim count As Integer
sWord = InputBox(Prompt:="Enter Word to search: ", Title:="Enter Word", Default:="Search Word")

With ActiveSheet.UsedRange.Columns("G").Cells
    .AutoFilter
    .AutoFilter field:=1, Criteria1:="*" & sWord & "*"
    .Offset(1).Resize(.Rows.count - 1).SpecialCells(xlCellTypeVisible).Select
    .AutoFilter
End With

End Sub

您可以根据需要对单元格执行的任何操作调整.Select部分
 以下是我将如何做到这一点，完全避免循环以加速和简化：

Sub sWordcounter()
Dim sWord As String
Dim count As Integer
sWord = InputBox(Prompt:="Enter Word to search: ", Title:="Enter Word", Default:="Search Word")

With ActiveSheet.UsedRange.Columns("G").Cells
    .AutoFilter
    .AutoFilter field:=1, Criteria1:="*" & sWord & "*"
    .Offset(1).Resize(.Rows.count - 1).SpecialCells(xlCellTypeVisible).Select
    .AutoFilter
End With

End Sub

您可以根据需要对单元格执行的任何操作调整.Select部分
 你也可以使用条件格式来实现突出显示部分。你也可以使用条件格式来实现突出显示部分。+1该死！在我发布我的答案后，我在OP的帖子下看到了你关于条件格式的评论：）不得不删除我的答案：（下次将仔细阅读评论：P+1该死！在我发布我的答案后，我在OP的帖子下看到了你关于条件格式的评论：）不得不删除我的答案：（下次将仔细阅读评论：P