如何在VBA中的选择上编写IsEmpty

Question

我正在尝试编写IsEmpty代码以检查在特定选择范围内是否有空单元格。问题是它不能像B100:J这样硬编码，因为我不断地导入数据，因此数据范围将不断变化并且永远不会相同。因此，在通过宏将Excel制作为PDF之前，我想检查所有单元格以查看是否存在空单元格，因此可以删除它或对其进行调整。到目前为止，下面的代码是我所拥有的，但是它没有运行，而且我有点受阻，任何帮助都可以！我有B15:J15的原因是因为那是数据开始和结束的地方，但是我永远不知道它会下降多长时间，它可以从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

Answer 1

使用下面的代码检查最后一个空行。在这里，我假设您正在检查列B

lastRow =“您的工作簿” .sheets（“工作表名称”）.Cells（Rows.Count，“ B”）。End（xlUp）.Row