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

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

Answer 2

我试图弄清楚你试图用方法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语句，因为如果不需要它们，最好避免使用它们。

循环直到最后一个工作表

2 个答案: