1

我正在尝试将格式应用于当前工作簿中的每个工作表。我尝试过“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
4

2 回答 2

4

在方法一中,尝试更改:

Columns("A:A").Select 

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

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

于 2012-09-11T15:55:17.730 回答
1

我试图弄清楚你想用方法 2 做什么,但我做不到。但这只是因为,这里有一个不适用于每个版本的工作版本。

Sub format_worksheets()
    dim x as Integer
    For x = 1 To Sheets.Count
        Sheets(x).Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
                    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
                    Semicolon:=False, Comma:=True, Space:=False, Other:=True, TrailingMinusNumbers:=True
    Next x
End Sub

请注意,如果任何工作表在 A 列中没有数据,这将出错。我还省略了 select 语句,因为如果没有必要,最好避免使用它们。

于 2012-09-11T17:06:39.750 回答