VBA：没有CellTypeBlanks可用

我有一个电子表格我正在工作，有时我的wRange没有空白单元格留下来使用。 在这种情况下，我想跳转到macros的末尾。 我目前正在使用这个：

 On Error Resume Next wRange.SpecialCells(xlCellTypeBlanks) = "0" On Error GoTo -1 

处理我得到的错误，如果在我的其他更改后没有留下空白单元格。

我正在计划使用像

 If wRange.SpecialCells(xlCellTypeBlanks) is Blank Then Boolean emptycells = FALSE End If 

有没有更好的方法去做这件事？ 如果不是，我该如何编码呢？

谢谢。

Answer 1

你可以这样做：

 Dim blanks As Range On Error Resume Next Set blanks = wRange.SpecialCells(xlCellTypeBlanks) On Error GoTo 0 If blanks Is Nothing Then emptyCells = False End If 

Answer 2

mielk的答案是完全正确的，但从阅读你的问题，这听起来像是你甚至使用emptyCells布尔值的唯一原因是去macros的末尾。 所以我甚至不会打扰它，而是用以下方式修改mielk的答案：

 Whateveryoursubsnameis() Dim rngBlanks As Range On Error Resume Next Set rngBlanks = wRange.SpecialCells(xlCellTypeBlanks) On Error GoTo 0 If blanks Is Nothing Then GoTo MacroEnd End If (rest of your macro's code) MacroEnd: End Sub