如何让VBA作用于所有工作表？现有代码仅生效于活动工作表求排查

嘿，我一眼就看到你代码里的问题了——逻辑框架是对的，但一个小细节没注意，导致代码只在活动工作表上生效。

问题根源 #

你在With ws块里使用了Range("A1")，但没有给它加上前缀.。在VBA里，如果不指定对象前缀，它会默认使用当前活动工作表的Range，而不是你循环到的ws工作表。这就是为什么代码只改了活动表的A1单元格。

修正后的代码 #

只需要给Range加上.，让它绑定到With块里的ws对象就行：

Sub sample_code()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        With ws
            .Range("A1").Value = "test each worksheet" ' 这里的点是关键！
        End With
    Next ws
End Sub

如果你觉得With块容易忘加前缀，也可以直接用ws.来指定工作表，写法更直观，不容易出错：

Sub sample_code()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Range("A1").Value = "test each worksheet"
    Next ws
End Sub

额外说明 #

不管你的工作表名称怎么变，For Each ws In ThisWorkbook.Worksheets都会遍历当前工作簿里的所有工作表，不管它是不是活动状态，也不管名字是什么，都会逐一处理。

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