切换工作表时VBA变量Date_range无法正常存储值的问题求助

嘿，这个问题我太熟悉啦！核心原因就是你代码里的单元格引用没有明确指定工作表，导致运行上下文变化时出错。

问题根源 #

你在With Trade_Sheet块里写了Date_range = Cells(lastrow, 1).Offset(-27, 0).Value，这里的Cells没有加前缀.，它不会自动关联到Trade_Sheet，而是指向当前激活的工作表：

• 当你在Trade_Sheet里逐行调试时，激活的就是这个表，所以能正确获取日期；
• 但在Share_Calc_Tab运行宏时，激活的是主表，Cells会去主表找对应位置的单元格，那个位置大概率是空的，而Date类型变量遇到空值会被默认转换成0（对应Excel里的1900年1月0日），这就是你看到的问题。

修复后的代码 #

只需要给Cells加上.，让它明确属于Trade_Sheet，同时我还帮你优化掉了容易出问题的Activate和Select操作（这些操作不仅慢，还容易引发上下文错误）：

Sub Audit_Trade()
    Dim Trade_Sheet As Worksheet
    Dim Share_Calc_Tab As Worksheet
    Dim lastrow As Long
    Dim Date_range As Date
    
    Set Trade_Sheet = ThisWorkbook.Worksheets("Trades")
    Set Share_Calc_Tab = ThisWorkbook.Worksheets("End Share Calc (ESC) GLOBAL")
    
    Application.ScreenUpdating = False
    
    With Trade_Sheet
        lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
        ' 加上.，明确引用Trade_Sheet的单元格
        Date_range = .Cells(lastrow, 1).Offset(-27, 0).Value
        .Cells(lastrow + 2, 1).Value = Date_range + 7
        
        ' 直接复制粘贴，无需切换激活工作表
        Share_Calc_Tab.Range("Trade_Instruction_Daily").Copy
        .Cells(lastrow + 3, 1).PasteSpecial Paste:=xlPasteFormats
        .Cells(lastrow + 3, 1).PasteSpecial Paste:=xlPasteValues
    End With
    
    Application.CutCopyMode = False
    ' 如果不需要回到主表选中B22，可以直接删掉下面这行
    ' Share_Calc_Tab.Range("B22").Select
    
    Application.ScreenUpdating = True
End Sub

额外建议 #

• 养成永远指定工作表对象的习惯，不要依赖当前激活的工作表，这是VBA新手最容易踩的坑；
• 尽量避免使用Activate和Select，直接通过工作表对象引用单元格，代码更高效也更稳定；
• 可以加个简单的错误判断，防止目标单元格不是有效日期导致报错：

  If IsDate(.Cells(lastrow, 1).Offset(-27, 0).Value) Then
      Date_range = .Cells(lastrow, 1).Offset(-27, 0).Value
      .Cells(lastrow + 2, 1).Value = Date_range + 7
  Else
      MsgBox "指定位置的单元格不是有效日期，请检查！"
      Exit Sub
  End If
  

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