计算纸张数量直到特定一张

Question

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

Answer 1

我是堆栈溢出/编码的新手，直到我完成了过于复杂的版本后才看到不复杂的响应。

子计数表()

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

结束子

Answer 2

有什么方法可以让结果显示在单元格中吗？我想要的是计算工作簿中直到并包括名为“SAMPLE”的工作表的工作表（包括隐藏工作表）的数量，然后将此数字显示在标题为“ADMIN”的工作表的单元格 BA 中。