excel - 自动调整以特定工作表开头的列

Question

下面是我要使用的公式。我只是不确定如何添加从特定工作表开始的命令。

Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
sh.Columns.AutoFit
Next sh
End Sub

标签： excelvba

Answer 1

当然，请改用索引：

Dim nIndex As Integer
For nIndex = 1 To ThisWorkbook.WorkSheets.Count
  ThisWorkbook.WorkSheets(nIndex).Columns.AutoFit
Next 

将 更改为1您想要开始的任何一个。

或者您可以在循环中检查工作表的名称，并在之后处理所有这些并包括该名称：

Dim bFlag As Boolean ' default value is False
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
  If sh.Name = "First One" Then bFlag = True
  ' once the flag is set to True, it stays True til the end
  If bFlag Then sh.Columns.AutoFit
Next