同工作簿工作表行剪切粘贴报错438及格式设置问题求助

核心错误分析（438错误） #

CC.Range(CC.Cells(w, 1)).Paste报错是因为Range对象没有直接的Paste方法，Excel VBA中需使用PasteSpecial方法，或更高效的方式是直接在Copy方法中指定目标区域。

其他代码问题 #

1. 部分Cells(r,1)未指定工作表对象，会默认使用当前激活工作表，导致逻辑错误
2. 处理行删除时从上往下循环会跳过行，必须从下往上遍历
3. 剪切/粘贴操作可合并为一步，避免剪贴板占用
4. 屏幕刷新和事件禁用的位置错误，应放在循环外以提升运行效率

修正后的完整代码 #

Sub ProcessCommercialData()
    Dim wb As Workbook
    Dim OC As Worksheet
    Dim CC As Worksheet
    Dim lrow As Long
    Dim clrow As Long
    Dim r As Long
    
    Set wb = ThisWorkbook
    Set OC = wb.Sheets("Commercial")
    Set CC = wb.Sheets("Closed Commercial")
    
    ' 关闭屏幕刷新和事件，提升运行效率
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    ' 获取OC工作表A列最后一行（分类列）
    lrow = OC.Cells(OC.Rows.Count, "A").End(xlUp).Row
    ' 获取CC工作表下一个空行（用于粘贴数据）
    clrow = CC.Cells(CC.Rows.Count, "A").End(xlUp).Offset(1, 0).Row
    
    ' 第一部分：按A列分类设置行样式
    For r = 8 To lrow
        Select Case OC.Cells(r, 1).Value
            Case "Origin"
                OC.Range(OC.Cells(r, 1), OC.Cells(r, 11)).Style = "Origin"
            Case "Open"
                OC.Range(OC.Cells(r, 1), OC.Cells(r, 11)).Style = "Open"
            Case "Disco"
                OC.Range(OC.Cells(r, 1), OC.Cells(r, 8)).Style = "Disco"
            Case "RDU"
                OC.Range(OC.Cells(r, 1), OC.Cells(r, 11)).Style = "RDU"
            Case "RFQs"
                OC.Range(OC.Cells(r, 1), OC.Cells(r, 11)).Style = "RFQs"
        End Select
    Next r
    
    ' 第二部分：处理状态为"C"的行，从下往上遍历避免漏行
    For r = lrow To 8 Step -1
        If OC.Cells(r, 12).Value = "C" Then
            ' 设置Closed样式
            OC.Range(OC.Cells(r, 7), OC.Cells(r, 12)).Style = "Closed"
            ' 直接复制到CC目标行，随后删除OC中的对应行
            OC.Rows(r).Copy Destination:=CC.Rows(clrow)
            OC.Rows(r).Delete
            ' CC目标行下移一行，准备接收下一条数据
            clrow = clrow + 1
        End If
    Next r
    
    ' 恢复屏幕刷新和事件
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

代码说明 #

• 使用Select Case替代多个ElseIf，代码结构更清晰易维护
• 所有单元格操作明确指定工作表对象（OC/CC），避免依赖激活工作表
• 处理行删除时采用从下往上循环（Step -1），确保不会跳过未处理的行
• 用Copy Destination:=直接完成复制，避免剪贴板操作，更高效稳定
• 屏幕刷新和事件禁用放在循环外，减少不必要的性能损耗

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