检测非连续区域日期填充的VBA代码报运行时错误'424'

原代码的错误点 #

• 区域引用语法错误：Range("T2" & tlastRow)会生成类似T2100的单个单元格地址，而非T2到T列最后一行的连续区域，正确写法应为Range("T2:T" & tlastRow)。
• 空值判断方式错误：Is Empty仅适用于变量空值判断，不能直接用于Range对象。判断区域是否无填充内容，需用WorksheetFunction.CountA(区域) = 0统计非空单元格数量。
• 逻辑流程错误：原代码中GoTo NoDates后没有分支，无论条件是否满足都会执行提示框，需调整流程确保仅当三个区域都为空时才触发提示。
• 冗余变量定义：三个lastRow变量均取A列最后一行，完全重复，可合并为一个变量简化代码。

修正后的代码 #

Sub DateChecker()
    Dim lastRow As Long
    Dim rngT As Range, rngU As Range, rngW As Range
    
    ' 获取A列最后一行（若需对应列的最后一行，可改为Columns("T").End(xlUp).Row）
    lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 定义三个目标区域
    Set rngT = ActiveSheet.Range("T2:T" & lastRow)
    Set rngU = ActiveSheet.Range("U2:U" & lastRow)
    Set rngW = ActiveSheet.Range("W2:W" & lastRow)
    
    ' 判断三个区域是否均无填充内容
    If WorksheetFunction.CountA(rngT) = 0 And _
       WorksheetFunction.CountA(rngU) = 0 And _
       WorksheetFunction.CountA(rngW) = 0 Then
        MsgBox "日期未填写", vbExclamation
    End If
End Sub

额外说明 #

如果需要针对T、U、W列各自的最后一行（而非A列）来确定区域范围，可修改lastRow的获取方式，示例：

' 获取T列最后一行
Dim tLastRow As Long: tLastRow = ActiveSheet.Columns("T").End(xlUp).Row
' 获取U列最后一行
Dim uLastRow As Long: uLastRow = ActiveSheet.Columns("U").End(xlUp).Row
' 获取W列最后一行
Dim wLastRow As Long: wLastRow = ActiveSheet.Columns("W").End(xlUp).Row

Set rngT = ActiveSheet.Range("T2:T" & tLastRow)
Set rngU = ActiveSheet.Range("U2:U" & uLastRow)
Set rngW = ActiveSheet.Range("W2:W" & wLastRow)

内容的提问来源于stack exchange，提问作者TheEndUK