Для конкретной ячейки (в примере используется A1):Sub excample()
If IsEmpty(Range("A1")) = True Then
MsgBox "Ячейка пустая"
Else
MsgBox "Ячейка непустая"
End If
End Sub
Для активной ячейки:Sub excample()
If IsEmpty(ActiveCell) = True Then
MsgBox "Ячейка пустая"
Else
MsgBox "Ячейка непустая"
End If
End Sub |