粘贴数字以避免目标上的公式

Question

我有一个宏可以将值复制并粘贴到电子表格的不同列中。在目标列上，我需要避免在宏粘贴值时覆盖一些公式，因为我实际上希望公式计算新值。我已经创建了一个代码，但我非常感谢您帮助添加条件以避免粘贴目标上的公式。

Sub RawDataNew()
'
' RawDataNew Macro
' To move validated to previous week on raw data tab
'
    Range("$B$17:$AQ$2572").AutoFilter Field:=6
    Range("Z18:AB2572").Select
    Selection.Copy
    Range("AU18").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H18:H2572").Select
    Selection.Copy
    Range("AR18").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("O18:O2572").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("AS18").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("W18:W2572").Select
    Selection.Copy
    Range("AX18").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("X18:X2572").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("AY18").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Range("G4").FormulaR1C1 = "=TODAY()"
    Range("G4").Value = Date

    Range("G5").Value = Environ("username")
'
End Sub

Answer 1

您使用的粘贴方法Paste:=xlPasteValues 只是粘贴值；如果您需要公式和值，则需要Paste:=xlPasteAll。

如果您只需要公式，则需要Paste:=xlPasteFormulas

其他可选参数请参考link

另一个建议是使用= 方法，即。 Range("A1").value = Range("B1").value 由于复制/粘贴方法非常慢，尤其是当您拥有与现在在这里使用的一样多的数据时。此外，您将从复制的单元格中获得所有额外的格式，这可能会很烦人