Ищите слово в столбце от первого до последнего ряда

Question

Я хочу найти слово «double» в столбце N от первой строки до последней доступной строки (общее количество строк извлечено из ячейки E1).

Если слово «double»найден, появится окно сообщения «ошибка».

Кто-нибудь может мне помочь?Спасибо

Answer 1

Добро пожаловать в 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

Я предполагаю, что вы хотитезапустите это на текущем активном рабочем листе.Более водостойкий способ - это, конечно, , чтобы указать лист по имени или номеру.

Возможно, вы захотите уточнить код, хотя, например, включить адрес ячейки в «двойной»было найдено в вашем сообщении об ошибке, например:

MsgBox "error in cell " & cell.Address