Как написать IsEmpty на подбор в VBA - PullRequest
0 голосов
/ 15 января 2020

Я пытаюсь написать код IsEmpty для проверки наличия пустых ячеек в определенном диапазоне выбора. Дело в том, что он не может быть жестко запрограммирован, например B100:J, потому что я постоянно импортирую данные, поэтому диапазон данных будет постоянно меняться и никогда не будет прежним. Итак, перед тем, как сделать Excel в формате PDF с помощью макроса, я хочу проверить все ячейки, чтобы увидеть, есть ли пустая ячейка, поэтому я могу удалить ее или внести изменения в нее. Код ниже - это то, что у меня есть, но он не работает, и я застрял, все помогает! Причина, по которой у меня есть B15:J15, заключается в том, что именно там данные начинаются и заканчиваются, но я никогда не узнаю, как долго они будут go падать, они могут go с B100:J100 или B30:J30. Спасибо всем.

Sub IsEmpty()
'check to see if there are any blank cells before archiving

Dim N As Range
Set N = Range("B15:J15").End(xlDown)

If IsEmpty(Range(N).Value) = False Then
MsgBox ("Blank information, please double check")

End If

End Sub

1 Ответ

0 голосов
/ 16 января 2020

Используйте код ниже, чтобы проверить последнюю пустую строку. Здесь я предполагаю, что вы проверяете столбец B

lastRow = "ваша рабочая книга" .sheets ("имя листа"). Ячейки (Rows.Count, "B"). End (xlUp) .Row

...