VBA批量复制工作表时复选框无法复制的原因及解决方案

• 你当前代码中使用的Cells.Copy + PasteSpecial xlPasteAll组合仅能复制单元格本身的内容、格式、公式等属性，无法覆盖悬浮在单元格上层的表单控件、ActiveX控件（包括复选框）。这类控件属于工作表的Shapes集合，不属于单元格对象的附属属性，因此常规的单元格粘贴操作不会携带。
• 手动全选复制时，Excel默认会选中当前工作表的所有可见对象（包括单元格、控件、图形等），因此可以正常复制复选框，和代码的操作范围存在本质差异。

下面提供两种常用的实现方案：

方案1：直接使用带目标参数的Copy方法（最简单） #

去掉PasteSpecial逻辑，直接将源单元格复制到目标表的起始位置，该模式下Excel会自动同步关联的控件，修改后的代码如下：

Sub Button4_Click()

Const ExclusionsList As String = "Main,Source," _
        & "Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday"
     
    Dim Wbk As Workbook
    Dim WshSrc As Worksheet
    Dim WshTrg As Worksheet
    Dim Exclusions() As String
    Dim n As Long
    
    Set Wbk = ThisWorkbook
    Set WshSrc = Wbk.Worksheets("Source")
    Exclusions = Split(ExclusionsList, ",")
    
    Application.ScreenUpdating = False
    
    For Each WshTrg In Wbk.Worksheets
        If IsError(Application.Match(WshTrg.Name, Exclusions, 0)) Then
            ' 清空目标表原有内容和控件，避免残留
            WshTrg.Cells.Clear
            WshTrg.DrawingObjects.Delete
            ' 直接复制到目标区域，自动携带控件
            WshSrc.Cells.Copy Destination:=WshTrg.Cells(1, 1)
            Application.Goto WshTrg.Cells(1), 1
        End If
    Next
    
    Application.Goto Worksheets("Main").Cells(1), 1
    Application.CutCopyMode = False ' 清空剪贴板
    Application.ScreenUpdating = True

End Sub

方案2：单独复制控件（适用于需要保留PasteSpecial逻辑的场景） #

如果你的业务需要单独控制粘贴的内容类型（比如只粘贴值+格式+控件），可以在单元格粘贴完成后，单独遍历源表的所有控件复制到目标表，补充对应遍历Shapes集合的复制代码即可。

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