在选定的工作表

Question

我需要编写VBA代码，该代码将从打开的工作簿中除Sheet1之外的所有工作表中删除B列。所有这些工作表都位于Sheet1的右侧，它们的名称也与第AA列中的sheet1中的范围一样存储。此外，在A列中的每一个工作表（除了Sheet1）之外，必须从单元格A2开始插入自动编号（1.2.3等）并向下移动。在每个工作表中，列标题相同，但行数根据每个工作表中包含的数据而不同。我不知道如何在每张纸上重复这个宏。

Answer 1

您需要使用ActiveWorkbook对象中包含的Worksheets集合进行循环：

Dim sheet As Worksheet

For Each sheet In ActiveWorkbook.Worksheets

    If Not sheet.Name = "Sheet1" Then

     Debug.Print sheet.Name

    End If

Next

当您在该循环内部时，工作表对象只是一个普通的Worksheet对象，您可以执行通常对ActiveSheet执行的任何操作。