Question

我正在尝试对齐电子表格中的所有第二行。我写的代码并没有循环遍历所有工作表，只是将左对齐应用于第一张工作表。

Sub leftAlign()
 Dim ws As Worksheet
 For Each ws In Worksheets
    Rows(2).Select
    With Selection
        .HorizontalAlignment = xlLeft
    End With
 Next ws
End Sub

Answer 1

您需要在循环中引用ws变量（否则只有活动工作表会应用代码），您不需要选择。另外，对于一行而言，我认为With是过度的。

Sub leftAlign()
 Dim ws As Worksheet
 For Each ws In Worksheets
    With ws.Rows(2)
        .HorizontalAlignment = xlLeft
    End With
 Next ws
End Sub

在所有表格中左对齐第2行

1 个答案: