首页 文章

在选定的工作表中运行VBA功能

提问于
浏览
-1

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

1 回答

  • 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执行的任何操作 .

相关问题