尝试复制/粘贴到指定范围时，Microsoft Excel 宏出现错误

Question

我编写了一些代码，目的是复制所有具有条件格式的单元格（在我的工作表中始终是行），然后将其粘贴回同一位置以删除公式。

当我尝试“On Error Resume Next”查看会发生什么情况时，我收到了 x400 错误代码，并且宏只选择了两行，它将相同的两行粘贴到了我选择的整个粘贴范围内。

我尝试更改粘贴范围以匹配我使用过的另一个有效的宏，但仍然无济于事。如果有人能帮助我解决这个问题，我将不胜感激。

我的宏的代码如下所示。

Sub Cement()
    Dim cell As Range
    Dim selRange As Range

    For Each cell In Range("L5:AJ370")
        If cell.DisplayFormat.Interior.Color <> cell.Interior.Color Then
            If selRange Is Nothing Then
                Set selRange = cell
            Else
                Set selRange = Union(selRange, cell)
                selRange.Copy

            End If
        End If
    Next

    If Not selRange Is Nothing Then selRange.Select
    Range("L5:AJ5").Select
    Selection.PasteSpecial xlPasteValues
End Sub