我需要编写VBA代码,该代码将从打开的工作簿中除Sheet1之外的所有工作表中删除B列 . 所有这些工作表都位于Sheet1的右侧,它们的名称也与第AA列中的sheet1中的范围一样存储 . 此外,在A列中的每一个工作表(除了Sheet1)之外,必须从单元格A2开始插入自动编号(1.2.3等)并向下移动 . 在每个工作表中,列 Headers 相同,但行数根据每个工作表中包含的数据而不同 . 我不知道如何在每张纸上重复这个宏 .
您需要使用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执行的任何操作 .
1 回答
您需要使用ActiveWorkbook对象中包含的Worksheets集合循环:
当您在该循环内部时,工作表对象只是一个普通的Worksheet对象,您可以执行通常对ActiveSheet执行的任何操作 .