继承的Excel VBA宏触发Runtime Error 1004，求排查解决

直接排查报错原因 #

• 检查选中位置：如果当前选中的是Excel最大行（第1048576行），Selection.Offset(1, 0)会指向不存在的行，触发1004错误。运行宏前手动选中中间行的单元格再测试。
• 检查工作表保护：若工作表开启保护且未允许单元格选择，Select操作会失败。右键工作表标签→取消保护工作表（有密码需联系前任获取）。
• 确认选中状态：宏运行前如果没有选中任何单元格（比如只点了工作表空白处），Selection对象不存在，也会报错。先手动选中任意单元格再执行宏。

优化代码从根源避免问题 #

依赖Selection的代码稳定性极差，建议改成直接定位单元格的写法：

替换报错行的基础写法 #

' 替换原来的Selection.Offset(1, 0).Select
Dim targetCell As Range
Set targetCell = ActiveCell.Offset(1, 0)
' 先判断目标行是否存在
If targetCell.Row <= ActiveSheet.Rows.Count Then
    targetCell.Select
Else
    MsgBox "已到最后一行，无法下移"
End If

针对“添加月份”功能的更稳妥写法 #

如果宏的目的是在指定列末尾新增月份，直接定位目标单元格而非依赖选中状态：

' 示例：在Sheet1的A列最后一行下添加下月日期
Dim ws As Worksheet
Dim lastRow As Long
Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为你的工作表名称
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
' 假设A列已有月份格式为yyyy-mm，新增下月
ws.Cells(lastRow + 1, "A").Value = Format(DateAdd("m", 1, ws.Cells(lastRow, "A").Value), "yyyy-mm")

额外排查项 #

• 检查工作表是否存在：如果代码里引用的工作表已被改名或删除，会触发类似错误。
• 确认文件格式：.xlsx格式会禁用宏，需保存为.xlsm格式再运行。

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