对于VBA中的每一个-从第三个样式表开始

Question

我在Excel中的Workbook中有很多样式表，几乎每个样式表都需要做一些更改。前两个和最后几个应该跳过。

我正在为每个循环使用，真的不知道如何跳过两个第一元素。使用最后一个没有问题，因为我检查样式表的名称，如果它等于我的条件，我将中断循环并退出。

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
    ws.Activate
    If ws.Name = "03.2016PTF" Then Exit For
    'here's my code
Next

如果我一开始就退出循环，我就不会对其余的文档进行更改。

Answer 1

尝试：

With ThisWorkbook

maxsht = .Sheets.Count

For i = 3 To maxsht
    If .Sheets(i).Name = "03.2016PTF" Then Exit For
    'here's my code
Next i

End With

它使用Index循环遍历所有工作表，因此您可以有效地从第n页开始，在本例中是第三页。

代码一直循环到wb中的最后一个工作表，除非它遇到前面提到的名为03.2016PTF的工作表，在该工作表中循环退出。

Answer 2

在if语句上使用And来检查更多的标准。

• Or中的任何一个都可以触发if。
• And它们都必须是真的，这样就触发了if。

这样，您就可以填写尽可能多的纸张，而不必担心他们的订单。

Dim ws As Worksheet, arrWs As Variant, Skiped As Boolean

arrWs = Array("Sheet1ToAvoid", "Sheet2ToAvoid", "...") 'fill this with as much sheets you need

For Each ws In ThisWorkbook.Worksheets
    Skiped = Application.Match(ws.Name, arrWs, 0)
    If Not Skiped Then
        'here's my code
    End If
Next