数値を貼り付けて数値を貼り付けます

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 コピー/ペーストの方法が非常に遅いため、特に今ここで使用しているデータと同じだけのデータがある場合は、また、コピーしたセルから余分な書式をすべて取り出すことになります。これは対処するのが面倒です。