수식 붙여 넣기 피하기 수식에 대상

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 복사/붙여 넣기 방법이 매우 느립니다. 특히 지금 여기에서 사용하는만큼의 데이터가있는 경우 특히 그렇습니다. 또한 복사 된 셀의 모든 서식을 처리하게되어 매우 귀찮습니다.