VBA遍历工作表执行操作出现Compile Error，请求排查错误原因

• 编译错误的高亮是误导，实际问题出在With ws代码块里的对象调用错误：Worksheet对象（ws）并没有Application、Selection、ActiveSheet这些成员，你用.前缀调用这些属性时，VBA找不到对应的方法/成员，因此触发报错。
• 另外，你的代码大量使用Select、Activate，这是VBA新手常见习惯，但这种写法不仅容易出错，还会降低代码运行效率，更稳妥的方式是直接操作Range对象。

修正后的代码 #

Sub Macro1()
    Dim ws As Worksheet
    Dim sourceRange As Range
    Dim targetCell As Range

    For Each ws In Worksheets
        ' 定义要复制的源区域：从R10C3开始，向下到最后一行数据，向右到最后一列数据
        With ws
            Set sourceRange = .Range(.Cells(10, 3), .Cells(10, 3).End(xlDown).End(xlToRight))
            ' 定义目标起始单元格R10C12
            Set targetCell = .Cells(10, 12)
        End With
        
        ' 直接完成复制粘贴
        sourceRange.Copy Destination:=targetCell
    Next ws
End Sub

关键改进点 #

• 直接通过ws.Cells和ws.Range引用工作表单元格，无需激活工作表，避免了Activate、Select带来的对象混乱。
• 明确定义sourceRange和targetCell变量，代码逻辑更清晰，也方便调试。
• 使用Copy Destination:=一步完成复制粘贴，替代原来的多步选择操作，简洁高效。

如果确实需要先定位到R1C1（比如让工作表滚动到顶部，不影响复制逻辑），可以保留.Activate，但要去掉With ws里的.前缀调用Application，比如把.Application.Goto改成Application.Goto——因为Application是全局对象，不需要通过Worksheet调用。

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