수식을 손상시키지 않고 붙여 넣는 매크로

마스터 시트에 수식을 유지하면서 다른 시트의 데이터를 마스터 시트에 붙여 넣을 수있는 방법이 있습니까? 그래서 본질적으로 필자의 매크로는 마스터 스프레드 시트의 형식과 수식을 유지하면서 텍스트를 붙여 넣기를 원합니다. 또한 마스터에 붙여 넣은 후 일일 스프레드 시트에서 복사 할 데이터를 삭제하려고합니다. 여기 내 매크로가있다.

Sub macro ()

Workbooks.Open Filename:= _
        ("I:\Master Copy.xlsm"), Password:="nm"

Dim lNewRow As Long
Dim lDataRow As Long

Windows("Master Copy").Activate
ActiveSheet.Unprotect Password = "nm"
    Windows("Daily Worksheet").Activate
    '1. Find last used row in both sheets
    lNewRow = Workbooks("Daily Worksheet").Worksheets("Sheet1").Cells(Worksheets("Sheet1").Rows.Count, "A").End(xlUp).Row
  Windows("Master Copy").Activate
    lDataRow = Workbooks("Master Copy").Worksheets("Submission Log").Cells(Worksheets("Submission Log").Rows.Count, 1).End(xlUp).Row
    lDataRow = lDataRow + 1
    '2. Copy data
    Workbooks("Daily Worksheet").Worksheets("Sheet1").Range("A2:R" & lNewRow).Copy
    '3. Paste data
    Worksheets("Submission Log").Range("A" & lDataRow).PasteSpecial

    Application.CutCopyMode = False
    Selection.ClearContents

  Windows("Master Copy").Activate

ActiveSheet.Protect Password = "nm"


End Sub

한 줄의 코드로 묻고있는 것을 할 수는 없습니다.

각 열에있는 것이 대체로 두 시트간에 호환된다고 가정합니다 (그렇지 않으면 한 시트에서 다른 시트로 전체 범위를 복사하려고하지 않을 것입니다).

다음과 같은 한 가지 방법이 있습니다.

1. 현재 범위 전체를 대상 시트에 복사하지만 텍스트 만 붙여 넣습니다. 이렇게하면 대상 시트의 서식이 유지되지만 보관할 수식을 덮어 씁니다.
2. 대상 시트에서 위의 행에서 유지하려는 수식을 새로 붙여 넣은 행에 복사합니다. Excel에서 수식의 상대 참조를 자동으로 업데이트합니다. 수식이 들어있는 인접한 셀 그룹마다이 작업을 수행해야합니다.

확실히 다른 방법이 있지만, 모두 VBA 코드가 다르게 취급해야하는 셀의 참조 (또는 찾는 방법)를 "알아야"합니다. 단일 작업에서 단일 범위에 필요한 여러 가지 고유 한 복사 유형을 수행하는 기본 제공 기능은 없습니다. 우리는 이런 일 때문에 VBA를 가지고 있습니다!

소스 시트에서 데이터를 삭제하는 것에 관해서는, 당신이 찾고있는 것이 . 명백한 내용 방법.