VBA中Range复制失效求助：模板单元格范围无法复制到新建工作表

嘿，我帮你揪出代码里的两个核心问题了，这就是你的Range复制功能失效的原因，顺便把工作表存在性检查的bug也一起修复了：

1. 复制语句的语法错误 #

你写的复制代码里多了个多余的等号，直接导致VBA无法正确解析这个指令，自然没法完成复制：

xActiveSheet.Range("A17:H34").Copy Destination:=Worksheets(xName).Range = ("A1")

把等号去掉就好，正确写法是直接指定目标单元格：

xActiveSheet.Range("A17:H34").Copy Destination:=Worksheets(xName).Range("A1")

2. 工作表存在性检查的逻辑bug #

原来的代码里，如果要检查的工作表不存在，Worksheets(xName).Name会直接抛出运行时错误，根本不会返回空字符串，这会导致你的代码在第一次遇到不存在的工作表时就崩溃。正确的做法是用错误捕获来安全判断工作表是否存在：

修复后的完整可运行代码 #

Sub CopyTemplateToSheets()
    Dim xOffset As Integer
    Dim xActiveSheet As Worksheet
    Dim xNumber As Integer
    Dim I As Integer
    Dim xName As String
    Dim CheckSheetName As String
    
    xOffset = Sheets("Initial Estimate").Index ' 获取模板工作表的索引
    Set xActiveSheet = Sheets(xOffset) ' 绑定模板工作表对象
    
    xNumber = Worksheets("Initial Estimate").Range("$B$1").Value ' 获取要创建的工作表数量
    
    For I = 1 To xNumber Step 1
        xName = "Estimated Invoice 0" & CStr(I) ' 用&做字符串拼接更稳妥，避免+的类型转换问题
        CheckSheetName = ""
        
        ' 用错误捕获安全检查工作表是否存在
        On Error Resume Next
        CheckSheetName = Worksheets(xName).Name
        On Error GoTo 0
        
        If CheckSheetName = "" Then ' 确认工作表不存在，创建并复制模板
            Worksheets.Add(After:=Sheets(Sheets.Count)).Name = xName
            ' 执行修复后的复制操作
            xActiveSheet.Range("A17:H34").Copy Destination:=Worksheets(xName).Range("A1")
            ' MsgBox "已创建并复制模板到: " & xName ' 调试用提示，不需要可以注释掉
        End If
    Next I
End Sub

额外优化小建议 #

• 字符串拼接优先用&代替+：+在遇到数字和字符串混合时可能触发意外的类型转换，&是VBA专门的字符串拼接运算符，更可靠。
• 建议在代码开头加上Option Explicit：强制声明所有变量，能帮你避免因变量名拼写错误导致的隐性bug，调试起来更省心。
• 如果不需要调试弹窗，把MsgBox那行注释掉就好，避免频繁弹窗干扰操作。

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