在第一行到最后一行的一列中查找单词

Question

我想从第一行到最后一个可用行在N列中查找单词“ double”（总行数是从单元格E1中提取的。）

如果找到单词“ double”，则会出现消息框“ error”。

有人可以帮助我吗？ 谢谢

Answer 1

欢迎使用StackOverflow。下次，在您的问题中please include what you have tried。

这符合您的要求：

Sub findDouble()
    ' get row number of last row to check
    Dim NumberOfCells As Integer
    NumberOfCells = ActiveSheet.Range("E1").Value

    ' loop through all cells in column N
    For Each cell In ActiveSheet.Range("N1:N" & NumberOfCells)
        ' throw error message if cell value equals double
        If cell.Value = "double" Then MsgBox "error"
    Next cell
End

我在这里假设您要在当前活动的工作表上运行它。 is of course的一种更防水的方式，可以通过其名称或编号来指定工作表。

您可能想要优化代码，例如包含在错误消息中找到“ double”的单元格地址，例如：

MsgBox "error in cell " & cell.Address