【教學】Excel VBA 如何建立新的工作表並設定名稱？超簡單馬上學會！

excel vba 新工作表 自訂名稱

方法一

將下方程式碼複製貼上到自己的巨集中，首先設定你想要的新工作表名稱，再來檢查該名稱的工作表是否已存在，最後判斷如果不存在，就新增工作表並命名

    Dim newSheet As Worksheet
    Dim sheetName As String

    ' 設定你想要的新工作表名稱
    sheetName = "MyNewSheet"

    ' 檢查該名稱的工作表是否已存在
    On Error Resume Next
    Set newSheet = Worksheets(sheetName)
    On Error GoTo 0

    If newSheet Is Nothing Then
        ' 如果不存在，就新增工作表並命名
        Set newSheet = ThisWorkbook.Worksheets.Add
        newSheet.Name = sheetName
        MsgBox "已成功建立工作表：" & sheetName
    Else
        ' 如果名稱已存在，顯示提示訊息
        MsgBox "工作表名稱 '" & sheetName & "' 已存在，請使用其他名稱。"
    End If

方法二

使用簡化方法，不做判斷直接新增，複製下方程式碼貼上至自己的巨集中即可

ThisWorkbook.Worksheets.Add.Name = "NewSheet"