技术问询：VBA代码无法遍历所有工作表实现第2行左对齐

Hey there! The problem with your code is that when you use Rows(2).Select without tying it to the specific worksheet in your loop, it only affects the currently active worksheet (which stays the first sheet as your loop runs). You don’t even need to select the row to adjust its alignment—directly referencing the worksheet’s row is cleaner and way more reliable.

Here’s the corrected version of your code:

Sub leftAlign()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ' Explicitly target row 2 of the current worksheet in the loop
        With ws.Rows(2)
            .HorizontalAlignment = xlLeft
        End With
    Next ws
End Sub

Key improvements: #

• Instead of Rows(2).Select, we use ws.Rows(2) to explicitly reference row 2 of the worksheet stored in the ws variable (the one the loop is currently processing).
• We removed the Selection step entirely because we can modify the row’s properties directly, which makes the code faster and avoids bugs caused by unexpected active sheet changes.

If you really wanted to use Select (though it’s not recommended), you’d need to activate each worksheet first inside the loop:

Sub leftAlign()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Activate ' Switch to the current worksheet
        Rows(2).Select
        With Selection
            .HorizontalAlignment = xlLeft
        End With
    Next ws
End Sub

But the first version is the best practice—always try to avoid Select and Activate in VBA when you can directly reference objects. It makes your code more efficient and less prone to errors.

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