请大佬帮忙写根据条件创建或删除工作表

名可名非恒名

请大佬帮忙写根据条件创建或删除工作表

请大佬帮忙写根据条件创建或删除工作表
请大佬帮忙写根据条件创建或删除工作表

附件已上传，谢谢大佬们帮忙

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, i&
   
    Application.ScreenUpdating = False
   
    ar = [A1].CurrentRegion.Value
   
    For i = 2 To UBound(ar)
        On Error Resume Next
            Worksheets(CStr(ar(i, 1))).Delete
        On Error GoTo 0
        Worksheets("老员工").Copy after:=Worksheets(Worksheets.Count)
        With ActiveSheet
            .Name = ar(i, 1)
        End With
    Next i
        
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考附件。。。

longwin

请看附件。。。。。

ynzsvt

不能删的也先罗列一列。

名可名非恒名

gwjkkkkk 发表于 2024-8-17 12:03
请参考附件。。。

谢谢大佬谢谢大佬谢谢大佬谢谢大佬

名可名非恒名

longwin 发表于 2024-8-17 12:07
请看附件。。。。。

谢谢大佬谢谢大佬谢谢大佬谢谢大佬

名可名非恒名

ynzsvt 发表于 2024-8-17 12:14
不能删的也先罗列一列。

谢谢大佬谢谢大佬谢谢大佬

蓝桥玄霜

删除的例子：

名可名非恒名

longwin 发表于 2024-8-17 12:07
请看附件。。。。。

大佬，我除了新员工名单,老员工,不能删1,不能删2,不能删3，这些工作表不能删以外，但是后期会增加表格，怕不小心删掉连，还有没有别的办法啊 ，不要这样直接写在代码里面