利用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

学习资料见知识星球。

以上就是今天要分享的技巧，你学会了吗？若有什么问题，欢迎在下方留言。

快来试试吧，小琥 my21ke007。获取 1000个免费 Excel模板福利​​​​！

更多技巧， www.excelbook.cn

欢迎 加入 零售创新 知识星球，知识星球主要以数据分析、报告分享、数据工具讨论为主；