excel - 循环直到最后一个工作表

Question

我正在尝试将格式应用于当前工作簿中的每个工作表。我尝试过“For Each”，并尝试循环遍历直到到达最后一个工作表，但由于不同的原因，这两个错误。有人可以告诉我我做错了什么吗？

方法1:它适用于第一个工作表，但不适用于其余工作表。

Sub format_worksheets()

    Dim ws As Worksheet
    For Each ws In Worksheets

        Columns("A:A").Select

           Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
                TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
                Semicolon:=False, Comma:=True, Space:=False,     
                Other:=True,TrailingMinusNumbers:=True

        Range("A1").Select

    Next ws


End Sub

方法 2:它不识别最后一个工作表。

Sub format_worksheets()

    Dim ws As Worksheet

    ws = Worksheet.Active

    Do

        code

    Loop Until ws = Sheets(Sheets.Count).Active

End Sub

Answer 1

在方法一中，尝试更改:

Columns("A:A").Select 

至

ws.Activate
ws.Columns("A:A").Select 

...激活工作表并指定要使用的工作表。