VBA下标越界错误：复制表头至新工作表时选中新表失败求助

嗨，我来帮你拆解这个VBA下标越界错误的问题～

你遇到的Subscript Out of Range（下标越界）错误，核心是VBA找不到你指定的Sh_name工作表，常见诱因有这几个：

• Sh_name工作表根本没创建：你的代码里直接尝试引用这个“新建的工作表”，但完全没有写创建它的逻辑——VBA不会自动生成这个工作表，必须显式创建后才能被引用。
• 工作表名称拼写/格式不匹配：比如实际创建的表名是Sh Name（带空格）、sh_name（小写开头），或者打错了字母，和代码里的Sh_name不一致时，VBA会判定找不到目标表。
• 工作表不在当前工作簿：如果Sh_name是在另一个打开的工作簿里，直接用Sheets("Sh_name")会默认查找当前代码所在的工作簿，自然会找不到。

修正后的完整代码 #

另外你的原代码还有一些语法小问题（比如在With块里定义变量不符合VBA规范），这里给你整理了优化后的代码，包含创建工作表的逻辑：

Sub CopyHeaderToNewSheet()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim rngSource As Range
    
    ' 定义源工作表
    Set ws1 = ThisWorkbook.Sheets("Details Master")
    Set rngSource = ws1.Range("B2:L2")
    
    ' 检查并创建目标工作表（如果不存在）
    On Error Resume Next
    Set ws2 = ThisWorkbook.Sheets("Sh_name")
    If Err.Number <> 0 Then
        ' 工作表不存在，新建并命名
        Set ws2 = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        ws2.Name = "Sh_name"
    End If
    On Error GoTo 0 ' 恢复默认错误捕获
    
    ' 复制表头到目标位置（简化写法）
    rngSource.Copy Destination:=ws2.Range("B2:L2")
End Sub

代码小说明 #

• 加入了检查+创建工作表的逻辑：先用错误捕获尝试引用Sh_name，如果报错就新建工作表并命名，彻底避免找不到表的问题。
• 用ThisWorkbook明确指定操作当前代码所在的工作簿，防止误操作其他打开的工作簿。
• 简化了复制粘贴逻辑，用Copy Destination:=一步完成，比先复制再粘贴更高效。
• 修正了原代码中With块的错误用法，变量声明放在代码开头，符合VBA编码规范。

内容的提问来源于stack exchange，提问作者nitesh sharma