Excel VBA跨工作簿复制数据时AA列无法复制问题求解

1. 错误吞吃：代码中的On Error Resume Next会屏蔽所有复制过程中的报错，无法定位AA列复制失败的具体原因
2. 行计数错误：LR是通过B列的最后一行计算的，如果AA列的有效数据行比B列多，会导致AA列尾部数据没有被纳入复制范围
3. 筛选逻辑问题：当前筛选指定的Field:=23对应A列起第23列（W列），如果"Done"标识列不是W列，会导致AA列有数据的行被过滤，无法进入复制范围
4. 粘贴参数错误：如果AA列存储的是带超链接的文件名，仅使用xlPasteValues只会粘贴文本内容，会丢失超链接属性，甚至如果超链接显示值为空会看起来整列没有复制成功
5. 文件操作不匹配：打开的目标文件是DoNotOpenDCAtest.xlsx，但关闭保存的是DoNotOpenDCA.xlsx，名称不匹配会导致目标文件修改未保存，看起来复制失败
6. 目标表限制：目标workbook-b的CycleCountResearch工作表AA列被锁定/隐藏/保护，导致粘贴被拦截

按优先级操作：

• 先删除On Error Resume Next语句，暴露真实报错信息
• 修正行计数逻辑，改用多列校验最后一行，确保AA列所有数据被纳入复制范围
• 确认筛选的Field参数对应你的"Done"标识所在的真实列号（A列为1，逐列累加）
• 如果AA列带超链接，将粘贴参数改为xlPasteAll或者同时粘贴值和超链接
• 修正打开/关闭的文件名，确保两者匹配
• 粘贴前解除目标工作表的保护

Sub Export()
    Dim FileName As String
    FileName = "\\InventoryControlDatabase\DoNotOpen\DoNotOpenDCAtest.xlsx"
    ' 校验文件是否被占用
    If IsFileOpen(FileName) = False Then
        Application.ScreenUpdating = False
        Dim srcWs As Worksheet, targetWs As Worksheet
        Set srcWs = ThisWorkbook.Worksheets("CycleCountResearch")
        srcWs.Unprotect "123"
        
        ' 计算正确的最后一行，取B列和AA列的最大值
        Dim LR_B As Long, LR_AA As Long, LR As Long
        LR_B = srcWs.Cells(Rows.Count, "B").End(xlUp).Row
        LR_AA = srcWs.Cells(Rows.Count, "AA").End(xlUp).Row
        LR = Application.Max(LR_B, LR_AA)
        
        ' 打开目标文件
        Dim src As Workbook
        Set src = Workbooks.Open(FileName)
        Set targetWs = src.Worksheets("CycleCountResearch")
        targetWs.Unprotect "123" ' 目标表有保护密码请替换，无密码可删除此行
        
        ' 执行筛选
        srcWs.AutoFilterMode = False
        ' 注意：Field参数修改为你"Done"标识所在的实际列号，A=1，以此类推
        srcWs.Range("A4:AA" & LR).AutoFilter Field:=23, Criteria1:="Done", Operator:=xlFilterValues
        
        ' 复制可见单元格
        srcWs.Range("A5:AA" & LR).SpecialCells(xlCellTypeVisible).Copy
        ' 粘贴到目标位置，如需保留超链接请用xlPasteAll，仅保留值用xlPasteValues
        targetWs.Range("A" & targetWs.Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
        
        ' 保存并关闭目标文件
        src.Close SaveChanges:=True
        
        ' 后续清理逻辑
        Application.ScreenUpdating = True
        Call UpdateMasterLog
        Call ClearUpdates
        srcWs.Range("K2").ClearContents
        srcWs.Protect "123" ' 如需恢复原表保护可保留此行
    Else
        MsgBox "Someone else is saving.  Please wait a moment and try again"
        Exit Sub
    End If
End Sub

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