对于嵌套'with ... end with'的循环

Question

所以我试图在-for..next循环中使用-with ... end with-.我们的想法是将所有这些东西放在每张纸上.下面的代码是伪的

    For Sheet = Sheet1 to Sheet10
        With Sheet
            ...code
        End With
     Next

所以我有10张.Sheet1,Sheet2,Sheet3等我似乎无法弄清楚如何遍历所有这些工作表

Answer 1

你应该试试这个答案

/sf/answers/1534279701/

Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
    ResizeColumns WS
Next WS

如果您不想选择工作簿中的每个工作表,则可以创建工作表名称的数组,然后通过它们进行操作.