使用 .PasteSpecial 粘贴复制的值

Question

请帮我解决这个问题：

我从这个link使用这个vba：

Sub test()
 Dim rng1 As Range, rng2 As Range, rngName As Range, i As Integer, j As Integer
    For i = 1 To Sheets("Sheet2").Range("B" & Rows.Count).End(xlUp).Row
        Set rng1 = Sheets("Sheet2").Range("B" & i)
        For j = 1 To Sheets("Sheet1").Range("C" & Rows.Count).End(xlUp).Row
            Set rng2 = Sheets("Sheet1").Range("C" & j)
            Set rngName = Sheets("Sheet1").Range("B" & j)
            If rng1.Value = rng2.Value Then
                rngName.Copy Destination:=Worksheets("Sheet2").Range("E" & i)
            End If

        Set rng2 = Nothing
    Next j
    Set rng1 = Nothing
 Next i
End Sub

有人可以告诉我如何将rngName.Copy 与

Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

我想赚，rngName.Copy 只复制文本，因为我在单元格中有特殊的颜色、文本格式、注释等，vba 粘贴更改的值，我想保留这些。

Answer 1

你是这个意思吗？

rngName.Copy
Worksheets("Sheet2").Range("E" & i).PasteSpecial Paste:=xlPasteFormulas, _
  Operation:=xlNone, SkipBlanks:=False, Transpose:=False

您可能还需要xlPasteValues 而不是xlPasteFormulas。在这种情况下，一种更简单更好的方法是在不使用复制/粘贴的情况下取值：

Worksheets("Sheet2").Range("E" & i).Value = rngName.Value

上述所有方法都保留了目标的格式。