这个错误在你用Select和Selection操作单元格时特别常见——这类写法严重依赖Excel当前的上下文（比如激活的工作表、选中的单元格），稍有变动就会抛出1004错误。结合你提供的代码，我来帮你排查并修复问题：

问题根源 #

你的代码大量使用Range(...).Select和Selection.XXX，这种写法不仅效率低，还容易因为以下情况触发错误：

• 代码执行时用户不小心点了其他工作表，导致ActiveSheet切换
• 目标单元格处于隐藏、锁定（哪怕你用了Unprotect，如果单元格本身锁定且保护时没允许选择锁定单元格，也会出问题）或合并状态
• 工作表保护设置了密码，但Unprotect语句没传入正确密码

优化后的代码（彻底抛弃Select操作） #

直接操作单元格对象，完全不用Select和Selection，这是VBA编写的最佳实践：

Sub Kalendar()
    ' 声明并指定目标工作表，推荐用具体名称代替ActiveSheet，稳定性更高
    Dim targetWs As Worksheet
    Set targetWs = ThisWorkbook.Worksheets("你的工作表名称") ' 替换成实际表名
    
    ' 解锁工作表，如果有密码请添加参数，比如targetWs.Unprotect Password:="123456"
    targetWs.Unprotect
    
    ' 直接将O45的值复制到O43（替代Copy+PasteSpecial xlValues）
    targetWs.Range("O43").Value = targetWs.Range("O45").Value
    
    ' 直接将O52的公式复制到O45（替代Copy+PasteSpecial xlFormulas）
    targetWs.Range("O45").Formula = targetWs.Range("O52").Formula
    
    ' 你原代码未完成的部分（比如Range("K51").Select...）也请用直接操作的方式，示例：
    ' targetWs.Range("K51").ClearContents ' 或者其他你需要的操作
End Sub

额外排查建议 #

1. 固定工作表对象：别依赖ActiveSheet，明确写出工作表名称，避免用户切换工作表导致的错误
2. 检查单元格状态：确保目标单元格（O43、O45、O52等）没有被隐藏或合并，隐藏单元格用Select会报错，但直接赋值不受影响
3. 保护参数匹配：如果工作表保护时设置了“允许用户编辑区域”或密码，要确保Unprotect语句的参数正确

内容的提问来源于stack exchange，提问作者Kamil Černý