将MAIN工作表数据（仅值无公式）复制到Static Data时的问题求助

问题场景 #

我有一个名为MAIN的工作表（工作簿第一个工作表），数据如下：

1,2,3
4,5,6
5,7,9

其中第三行由SUM函数计算生成，需要将这些数据**仅以数值形式（不含公式）**复制到名为Static Data的工作表中。

编写的VBA代码如下：

Public Sub CopyMain()
    Dim i As Long
    i = 1
    
    With Worksheets("Static Data")
        Cells.ClearContents
        Worksheets(i).Range("A1").CurrentRegion.Copy .Range("A1")
        .Range("A1").CurrentRegion.Value = .Range("A1").CurrentRegion.Value
    End With
End Sub

该代码在非MAIN工作表运行时正常，但在MAIN工作表运行时，会直接清空MAIN的全部内容。

错误原因 #

问题出在Cells.ClearContents这一行：没有添加.前缀，导致它脱离了With Worksheets("Static Data")的上下文，实际操作的是当前活动工作表（即运行代码时的MAIN工作表），因此误清空了MAIN的数据。

修复后的代码 #

只需给Cells添加.，明确让它指向With块指定的Static Data工作表：

Public Sub CopyMain()
    Dim i As Long
    i = 1
    
    With Worksheets("Static Data")
        .Cells.ClearContents ' 添加.，关联到Static Data工作表
        Worksheets(i).Range("A1").CurrentRegion.Copy .Range("A1")
        .Range("A1").CurrentRegion.Value = .Range("A1").CurrentRegion.Value
    End With
End Sub

优化版本（更高效） #

可以跳过复制粘贴步骤，直接将源区域的数值赋值给目标区域，避免占用剪贴板，同时代码更清晰：

Public Sub CopyMain()
    ' 直接指定MAIN工作表，避免依赖索引（更易维护）
    Dim sourceRange As Range
    Set sourceRange = Worksheets("MAIN").Range("A1").CurrentRegion
    
    With Worksheets("Static Data")
        .Cells.ClearContents
        ' 调整目标区域大小匹配源数据，直接赋值数值
        .Range("A1").Resize(sourceRange.Rows.Count, sourceRange.Columns.Count).Value = sourceRange.Value
    End With
End Sub

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