VBA考勤表重置代码中复制粘贴功能失效问题求助

问题场景 #

这段Case 5代码用于将"Attendance"工作表重置为初始状态，供新班级教学使用，勾选用户窗体的Checkbox(5)时触发执行。其中复制粘贴代码段通过计数器cksum确认执行了19次，但目标区域始终为空。

有问题的代码片段 #

If x <> 1 Then 
    cksum = cksum + 1 
    Worksheets("Attendance").Range("J12:BN14").Copy 
    Worksheets("Attendance").Range("J12:BN14").Offset(Step, 0).PasteSpecial  
    Paste:=xlPasteValuesAndNumberFormats  
End If

完整Case 5代码 #

Case 5     'ATTENDANCE Spreadsheet 
    Worksheets("Attendance").Range("J1:BG7").ClearContents
    Worksheets("Attendance").Range("J10:BG10").ClearContents 
    Worksheets("Attendance").Range("A11:C90").ClearContents   'Student names 
    Step = 0 
    ck = 0 
    cksum = 0 
    For x = 1 To 20 
        Worksheets("Attendance").Range("J11:BN11").Offset(Step, 0).ClearContents 
        If x <> 1 Then 
            cksum = cksum + 1 
            Worksheets("Attendance").Range("J12:BN14").Copy 
            Worksheets("Attendance").Range("J12:BN14").Offset(Step, 0).PasteSpecial  
            Paste:=xlPasteValuesAndNumberFormats  
        End If 
        Step = Step + 4 
    Next x 
    MsgBox "Copy routine executed " & cksum & " times." 
    Step = 0 
    For x = 1 To 20 
        Worksheets("Attendance").Range("D11").Offset(Step, 0).MergeArea.ClearContents 
        Step = Step + 3 
    Next x 
    'Worksheets("Attendance").Range("K8").Copy 
    'Worksheets("Attendance").Range("L8:BG8").PasteSpecial 
    xlPasteFormulasAndNumberFormats 
    Controls("Checkbox" & k) = False
Case 6 

问题原因分析及修复 #

1. PasteSpecial参数语法错误 #

原代码中Paste:=xlPasteValuesAndNumberFormats单独成一行，导致该参数没有关联到前面的PasteSpecial方法调用。实际执行的是不带参数的PasteSpecial，而参数行被当作独立无效语句，自然无法按预期粘贴值和格式。

修复方法：将参数与PasteSpecial放在同一行，或用下划线_实现合法换行：

If x <> 1 Then 
    cksum = cksum + 1 
    Worksheets("Attendance").Range("J12:BN14").Copy 
    Worksheets("Attendance").Range("J12:BN14").Offset(Step, 0).PasteSpecial _
        Paste:=xlPasteValuesAndNumberFormats  
    Application.CutCopyMode = False ' 释放剪贴板
End If

2. 复制源区域为空验证 #

检查Worksheets("Attendance").Range("J12:BN14")在初始状态下是否包含需要复制的值或格式。如果源区域本身为空，复制粘贴后目标区域自然也不会有内容。

3. 目标区域位置验证 #

每次循环Step增加4，第一次执行复制时Step为4（x=2时），目标区域是J12:BN14向下偏移4行（即J16:BN18）。确认这些目标区域是否是预期位置，且未被后续代码意外清除。

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