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

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

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

有人能帮我吗？

---

谢谢

欢迎来到StackOverflow。下次，在你的问题上

这符合您的要求：

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

我在这里假设您希望在当前活动工作表上运行此操作。通过名称或编号指定图纸的更防水的方法

不过，您可能希望细化代码，例如，在错误消息中包含“double”所在的单元格地址，如下所示：

MsgBox "error in cell " & cell.Address

---

谢谢下次我会记住你的建议。