Excel VBA代码如何实现仅粘贴值？现有粘贴功能异常求助

老哥，我看你这段代码卡在用Paste Special只粘贴值的环节了，别着急，咱们一步步来把问题搞定。首先你原来的代码里依赖Select和Activate切换工作表，这很容易导致Paste Special的上下文出错，而且之前试的写法可能没避开这些坑。

先把你给出的代码片段整理清楚：

现有代码片段：

Sheets("AAAA").Select
Dim LR As Long, i As Long
With Sheets("AAAA")
    LR = .Range("H" & Rows.Count).End(xlUp).Row
    For i = 2 To LR
        With .Range("G" & i)
            If .Cells.Value = "NO MATCH" Then
                With Sheets("BBBB")
                    ' 这里是你原来的复制粘贴逻辑，没实现仅粘贴值
                End With
            End If
        End With
    Next i
End With

两种靠谱的解决方案 #

我给你两种写法，都能完美实现仅粘贴值，而且避开Select的坑：

方案1：修正Paste Special写法（不依赖Select）

这种写法保留复制粘贴的逻辑，但直接用对象引用，明确指定粘贴值的参数：

Dim LR As Long, i As Long
Dim targetRow As Long ' 记录BBBB表的目标粘贴行

' 先提前获取BBBB表的最后一行，避免循环里重复查找，提升效率
With Sheets("BBBB")
    targetRow = .Range("H" & .Rows.Count).End(xlUp).Row + 1 ' 假设粘贴到H列，可根据你的需求调整列
End With

With Sheets("AAAA")
    LR = .Range("H" & .Rows.Count).End(xlUp).Row
    For i = 2 To LR
        If .Range("G" & i).Value = "NO MATCH" Then
            ' 复制AAAA表当前行的指定单元格（这里以H列为例，可改成整行或其他列）
            .Range("H" & i).Copy
            ' 粘贴到BBBB表的目标行，仅粘贴值
            Sheets("BBBB").Range("H" & targetRow).PasteSpecial Paste:=xlPasteValues
            ' 目标行下移一行
            targetRow = targetRow + 1
            ' 清除剪贴板，避免残留内容干扰
            Application.CutCopyMode = False
        End If
    Next i
End With

方案2：直接赋值（更高效，不占用剪贴板）

如果不需要复制格式之类的，直接赋值是最优解，速度更快还不会用到剪贴板：

Dim LR As Long, i As Long
Dim targetRow As Long

With Sheets("BBBB")
    targetRow = .Range("H" & .Rows.Count).End(xlUp).Row + 1
End With

With Sheets("AAAA")
    LR = .Range("H" & .Rows.Count).End(xlUp).Row
    For i = 2 To LR
        If .Range("G" & i).Value = "NO MATCH" Then
            ' 直接把值从AAAA表赋值到BBBB表（单列示例）
            Sheets("BBBB").Range("H" & targetRow).Value = .Range("H" & i).Value
            ' 如果是多列（比如A到Z列），可以这么写：
            ' Sheets("BBBB").Range("A" & targetRow & ":Z" & targetRow).Value = .Range("A" & i & ":Z" & i).Value
            targetRow = targetRow + 1
        End If
    Next i
End With

为啥你之前的写法失败？ #

大概率是踩了这两个坑：

1. 依赖Select/Activate切换工作表，导致Paste Special的上下文混乱，系统不知道该往哪里粘贴值；
2. Paste Special的参数没写对，比如漏了Paste:=xlPasteValues这个关键参数，或者写法不符合VBA的语法要求。

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