计算直到特定一张的张数

【问题标题】：Count Number of Sheets Until Specific One计算直到特定一张的张数
【发布时间】：2022-07-15 23:28:40
【问题描述】：

vba 中是否有一种方法可以计算工作簿中存在的工作表数量，直到达到某个工作表名称。例如，我试图停止的工作表称为“摘要”。我想知道那张纸之前有多少张纸，包括“摘要”一张。

【问题讨论】：

Worksheets("Summary").Index
谢谢，正是我需要的。我知道我把问题复杂化了。

标签： excel vba count conditional-statements worksheet

【解决方案1】：

我是堆栈溢出/编码的新手，在完成过于复杂的版本之前，我没有看到过于复杂的响应。

子 CountingSheets()

test1 = Sheets.Count
Count = 0
For I = 1 To test1
    If Sheets(I).Name <> Sheets("Summary").Name Then
        Count = Count + 1
    Else
        Exit Sub
    End If
Next

结束子

【讨论】：