excel - 检查vba模块中的范围是否为空

Question

我想检查用户模块中一段代码中的excel范围是否为空。
我使用了下面的代码

Worksheets(yearsheet).Range("N" & rownum & ":DI").Select
If Application.WorksheetFunction.CountA(Selection) = 0 Then
    Exit Sub
End If

我收到运行时错误 1004。谁能告诉我的错误是什么？

提前致谢。
PS:rownum 是整数变量，yearsheet 是字符串变量。在上述代码部分之前，这两个变量都已在代码中正确更新

Answer 1

"N" & rownum & ":DI"不会评估为真实地址，因为它缺少地址后半部分的行号。此外，您应该尽可能避免使用 Select 语句。

假设整个范围都在一行中，这将起作用:

Sub test()
Dim yearsheet As String
Dim rownum As Integer

yearsheet = "Sheet2"
rownum = 2
If Application.WorksheetFunction.CountA(Worksheets(yearsheet) _
        .Range("N" & rownum & ":DI" & rownum)) = 0 Then
    Exit Sub
End If
End Sub