Question

我有几个包含月度数据的工作表，并希望创建一个包含所有工作表数据的摘要工作表。如何编写VBA来计算工作表的数量并在新工作表中创建一个表，其中的行仅限于工作表计数？此外，工作表的名称将填充表格的第一列。

例如，我有以下工作表：1月，2月，3月和4月。宏认识到我只有4个工作表，并在具有此行数的新工作表上创建表。每行的第一列分别填充1月，2月，3月和4月。

鉴于工作表每个月的计数和名称都不同，我不知道如何捕获它。

Answer 1

试试这段代码：

 Sub test()
    Dim summarySh As Worksheet
    Dim sh As Worksheet
    Dim i As Integer

    'add new sheet at the end'
    Set summarySh = Worksheets.Add(After:=Worksheets(Worksheets.Count))
    'rename it'
    summarySh.Name = "Summary"

    i = 1
    'loop through all sheets'
    For Each sh In Worksheets
        'if sh is not summary sheet, then'
        If sh.Name <> summarySh.Name Then
            'write sheet name in summary sheet column A'
            summarySh.Range("A" & i) = sh.Name
            i = i + 1
        End If
    Next
End Sub

VBA计数工作表和参考工作表名称

1 个答案: