小编use*_*702的帖子

我需要遍历索引3提示最后一张表并运行代码.我试过这样的东西,但它不起作用.

If (ws.sheetIndex > 2) Then
        With ws
            'code goes here
        End With
End If

我做了搜索,但找不到解决这个问题的方法.非常感谢帮助.

我也尝试过:

Dim i As Long, lr As Long
Dim ws As Worksheet
Windows("Book1").Activate

With ActiveWorkbook
    Set ws = .Worksheets("index")
    For i = 3 To 10
        'code goes here
    Next i


End With

我有一个超过1000列的工作表.如何选择该工作表中的所有列并自动调整每个列宽.我试过了

Sheets(1).Select
Selection.EntireColumn.AutoFit

但它没有用.有任何想法吗？