Excel VBA复制工作表时自动选择“全部是”的实现问题

• 问题本质：Application.DisplayAlerts = False 在名称冲突弹窗场景下，默认触发的是“否”操作，所以无法实现自动覆盖同名名称范围的需求。
• 以下是两种可行的解决方案：

方法1：复制前删除目标工作簿中的重复名称 #

提前清除目标工作簿里和源工作表同名的名称范围，避免复制时触发冲突弹窗：

Sub CopySheetWithOverwriteNames()
    Dim srcWB As Workbook, destWB As Workbook
    Dim srcWS As Worksheet
    Dim nm As Name
    
    ' 替换为你的源文件路径和目标工作簿
    Set srcWB = Workbooks.Open("C:\你的源文件路径.xlsx")
    Set destWB = ThisWorkbook ' 若目标是其他文件，改为Workbooks.Open("目标文件路径")
    Set srcWS = srcWB.Worksheets("需要复制的工作表名")
    
    ' 遍历删除目标工作簿中与源工作表关联的同名名称
    For Each nm In destWB.Names
        If InStr(nm.RefersTo, srcWS.Name) > 0 Then
            On Error Resume Next ' 避免名称已删除时报错
            nm.Delete
            On Error GoTo 0
        End If
    Next nm
    
    ' 执行工作表复制
    Application.DisplayAlerts = False
    srcWS.Copy After:=destWB.Sheets(destWB.Sheets.Count)
    Application.DisplayAlerts = True
    
    ' 关闭源工作簿（按需保留）
    srcWB.Close SaveChanges:=False
End Sub

方法2：复制后同步源工作表的名称范围 #

先完成工作表复制，再将源工作表的名称范围重新导入目标工作簿，覆盖同名项：

Sub CopySheetAndSyncNames()
    Dim srcWB As Workbook, destWB As Workbook
    Dim srcWS As Worksheet, destWS As Worksheet
    Dim srcNm As Name
    
    Set srcWB = Workbooks.Open("C:\你的源文件路径.xlsx")
    Set destWB = ThisWorkbook
    Set srcWS = srcWB.Worksheets("需要复制的工作表名")
    
    ' 复制工作表到目标工作簿
    Application.DisplayAlerts = False
    srcWS.Copy After:=destWB.Sheets(destWB.Sheets.Count)
    Application.DisplayAlerts = True
    Set destWS = destWB.Sheets(destWB.Sheets.Count)
    
    ' 同步源工作表的名称范围，覆盖目标中的同名项
    For Each srcNm In srcWB.Names
        If InStr(srcNm.RefersTo, srcWS.Name) > 0 Then
            ' 替换引用中的源工作表名为目标工作表名
            Dim newRefersTo As String
            newRefersTo = Replace(srcNm.RefersTo, srcWS.Name, destWS.Name)
            
            On Error Resume Next
            destWB.Names(srcNm.Name).Delete ' 删除目标中同名旧名称
            destWB.Names.Add Name:=srcNm.Name, RefersTo:=newRefersTo ' 添加新名称
            On Error GoTo 0
        End If
    Next srcNm
    
    srcWB.Close SaveChanges:=False
End Sub

• 注意事项：
  • 代码中的文件路径、工作表名需根据实际场景修改。
  • 操作名称范围时加入错误处理，避免因名称不存在或权限问题导致代码中断。

内容的提问来源于stack exchange，提问作者Salt Lake City Drafting