Excel: показать пустой адрес ячейки

Question

Я пытаюсь автоматизировать поиск пустых ячеек в двух столбцах (E и F).Моя цель - отобразить адрес этих пустых ячеек в одном окне сообщения.А если пустых ячеек нет, появится окно с сообщением о том, что в двух столбцах нет пустых ячеек.Я пробовал код до сих пор, но это работает только для 5-го (E) столбца и без проверки, что, если нет пустых ячеек, он выдаст сообщение.Я больше не уверен, как мне достичь своей цели для этого.

Ниже приведен код, который я пробовал до сих пор:

Sub test()

Dim i As Long, lastrow As Long
Dim rng As Range
Dim MsgStr As String
Dim c As Range


lastrow = Cells(Rows.Count, "E").End(xlUp).Row


For i = 2 To lastrow

If Cells(i, 5) = "" Then

        If MsgStr = "" Then

            MsgStr = Cells(i, 5).Address(False, False)

        Else

            MsgStr = MsgStr & "," & Cells(i, 5).Address(False, False)

        End If
End If

Next i

MsgBox MsgStr & " cells are empty"

End Sub

Answer 1

Попробуйте SpecialCells (xlCellTypeBlanks) .

Sub test()
    Dim lastrow As Long, rng As Range
    Dim MsgStr As String

    lastrow = Cells(Rows.Count, "E").End(xlUp).Row
    on error resume next
    set rng = range(cells(2, "E"), cells(lastrow, "F")).specialcells(xlcelltypeblanks)
    on error goto 0

    if not rng is nothing then
        msgbox rng.address(0,0) & " are blank"
    else
        msgbox "no blank cells"
    end if

End Sub