Excel VBA脚本无报错但无法跨工作表复制数据求助

以下是针对你的VBA脚本无报错但数据未复制问题的排查点及修复方案：

• 未声明变量引发的潜在风险
  代码中selectedSheet和wsHours变量未声明，且wsHours全程未使用，属于冗余代码。建议添加变量声明：

  Dim selectedSheet As Worksheet
  Dim wsHours As Worksheet
  

  或者直接删除未使用的wsHours相关代码，避免干扰。

• 星期名称的区域设置不匹配
  Format(Date, "dddd")返回的星期名称受系统区域设置影响，若系统为中文环境，会返回“星期五”而非“Friday”，导致Select Case完全不匹配，直接跳转到CleanExit，复制代码根本没执行。
  推荐改用星期数字判断（不受区域影响）：

  Dim dayOfWeek As Integer
  dayOfWeek = Weekday(Date, vbMonday) ' 设定周一为一周第1天
  Select Case dayOfWeek
      Case 5 ' 周五
          destRange = "C5:C15"
      Case 6 ' 周六
          destRange = "C20:C30"
      Case 7 ' 周日
          destRange = "C35:C45"
      Case 1 ' 周一
          destRange = "C50:C60"
      Case 2 ' 周二
          destRange = "C65:C75"
      Case 3 ' 周三
          destRange = "C80:C90"
      Case 4 ' 周四
          destRange = "C95:C105"
  End Select
  

• 工作表保护的密码缺失
  如果工作表保护时设置了密码，Sheets("Daily thaw").Unprotect不带密码会静默失败（因你关闭了DisplayAlerts），导致无法写入数据。若有密码，需补充密码参数：

  Sheets("Daily thaw").Unprotect Password:="你的保护密码"
  

  其他工作表的Unprotect语句同理修改。

• 调试验证步骤
  临时注释Application.ScreenUpdating = False，并在Select Case结束后添加MsgBox "目标区域：" & destRange，确认代码是否正确进入复制逻辑，以及目标区域是否符合预期。

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