利用VBA批量新建工作表以及重命名，删除除指定以外的工作表

2023年2月18日 94次阅读 来源: 抱着轮胎压马路

《利用VBA批量新建工作表以及重命名，删除除指定以外的工作表》以下是代码：

Sub 批量新增工作表并命名()
    Dim n, i, x, y, rng As Range
    n = Application.WorksheetFunction.CountA(Columns("A:A"))
    For i = 2 To n
        Sheets.Add After:=ActiveSheet
        Sheets(i + 1).Name = Sheets("列表").Cells(i, 1)
    Next
     Sheets("列表").Activate
End Sub
--------------------------------------------------------------------------
Sub 删除指定以外的工作表()
    Dim sht As Worksheet, strsht As String
    Application.DisplayAlerts = False
    strsht = "库存，列表"
    For Each sht In ThisWorkbook.Sheets
        If InStr(strsht, sht.Name) = 0 Then sht.Delete
    Next
    Application.DisplayAlerts = True
End Sub

    原文作者：抱着轮胎压马路
    原文地址: https://blog.csdn.net/m0_73280369/article/details/126327924
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。
点赞