Excel VBA宏IF条件判断失效 无法调用宏正常新增数据行

问题根因 #

• 日期比较逻辑未指定工作表对象：ButtonStuff 中的 Range("H13")、Range("H7") 未绑定具体工作表，默认读取当前活动工作表的对应单元格值，若触发按钮时活动工作表不是「Incident Report」，会读取到错误值导致判断失效。
• 未做日期类型校验：如果单元格存储的是文本格式的日期，直接用 > 比较会按照字符串规则判断，而非日期先后顺序，导致判断结果不符合预期。
• 原 Macro15 大量使用 Select/Activate 语句，运行时容易受活动工作表/单元格状态影响，且原代码找最后一行的写法冗余，很容易出现定位错误。

修正后可直接使用的代码 #

Sub ButtonStuff()
    ' 明确绑定工作表，避免活动表变化导致取值错误
    Dim wsReport As Worksheet
    Set wsReport = ThisWorkbook.Sheets("Incident Report")
    
    ' 先转成日期类型再比较，避免文本格式导致判断错误
    Dim startDate As Date, endDate As Date
    On Error Resume Next ' 兼容单元格不是合法日期的异常场景
    startDate = CDate(wsReport.Range("H7").Value)
    endDate = CDate(wsReport.Range("H13").Value)
    On Error GoTo 0
    
    If endDate > startDate Then
        Call Macro15
    Else
        MsgBox "End date cannot be previous to Start date"
    End If
End Sub

Sub Macro15()
    Dim wsReport As Worksheet, wsData As Worksheet
    Dim nextRow As Long
    Set wsReport = ThisWorkbook.Sheets("Incident Report")
    Set wsData = ThisWorkbook.Sheets("Data")
    
    ' 准确查找Data表A列第一个空行，替代原冗余的定位逻辑
    nextRow = wsData.Cells(wsData.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 直接操作单元格完成复制转置，无需Select
    wsReport.Range("H5,H7,H9,H11,H13").Copy
    wsData.Range("A" & nextRow).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    Application.CutCopyMode = False
    
    ' 清空指定单元格内容
    wsReport.Range("H5,H9,H11").ClearContents
    
    ' 直接赋值替代冗余的复制粘贴操作，运行效率更高
    wsReport.Range("H7").Value = wsReport.Range("N8").Value
    wsReport.Range("H13").Value = wsReport.Range("N9").Value
    
    ' 最终定位到H5单元格
    wsReport.Activate
    wsReport.Range("H5").Select
End Sub

注意事项 #

如果运行时提示类型不匹配，请检查「Incident Report」表的H7、H13单元格是否为合法日期格式，不要包含非日期类字符。

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