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