Excel VBA复制行粘贴为值避免影响条件格式问题咨询

要实现仅粘贴值、避免复制条件格式的需求，你需要修改复制粘贴的代码逻辑，替换默认的全内容复制粘贴方式，改用仅传递单元格值的操作。以下是两种可靠的实现方式：

方式1：使用PasteSpecial指定粘贴值 #

这是最直观的修改，保留复制操作但明确指定仅粘贴值：

If Sheet2.Range("A2") = "" Then
    Set pastecell = Sheet2.Range("A2")
Else
    Set pastecell = Sheet2.Range("A1").End(xlDown).Offset(1, 0)
End If

If status = "In process" Then
    ' 复制目标区域后，仅粘贴值到目标位置
    status.Offset(0, -2).Resize(1, 14).Copy
    pastecell.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False ' 清除剪贴板复制状态，避免残留提示
End If

If status = "In process" Then
    status.Offset(0, -2).Resize(1, 14).ClearContents
End If

方式2：直接赋值（更高效） #

跳过剪贴板操作，直接将源区域的值赋值给目标区域，这种方式不会触发格式复制，且运行效率更高：

If Sheet2.Range("A2") = "" Then
    Set pastecell = Sheet2.Range("A2")
Else
    Set pastecell = Sheet2.Range("A1").End(xlDown).Offset(1, 0)
End If

If status = "In process" Then
    ' 直接将源区域的值传递到目标区域，无格式跟随
    pastecell.Resize(1, 14).Value = status.Offset(0, -2).Resize(1, 14).Value
End If

If status = "In process" Then
    status.Offset(0, -2).Resize(1, 14).ClearContents
End If

核心说明 #

原代码中的Copy PasteCell会默认复制包括条件格式、单元格样式、公式在内的所有内容，而上述两种方式仅传递单元格的数值内容，完全不会影响目标工作表原有的条件格式规则。其中方式2无需依赖剪贴板，避免了潜在的资源占用问题，更推荐使用。

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