Excel宏VBA - 如何插入復制的單元格而不是粘貼

Question

我有一個運行以下代碼的宏，用於將數據從一個Excel文件復制到另一個Excel文件中。 目前，它正在將數據復制並粘貼到第二個Excel文件中。 這意味着它會覆蓋第二個Excel文件中的任何數據。

我希望它插入復制的單元格而不是粘貼工作簿中已有的數據。 我該如何編輯第27行才能使其工作？

我想我需要使用以下代碼，但我不知道如何將它應用於我的原始代碼。

InsertCopiedCells

這是粘貼數據的原始代碼。

Const strFile As String = "E:\My Documents\file2\file\MonthlyReports\Data\file1.xlsx" 
'Add the file location

    Dim wbCopyTo    As Workbook
    Dim wsCopyTo    As Worksheet
    Dim wbCopyFrom  As Workbook
    Dim wsCopyFrom  As Worksheet

    Set wbCopyTo = ActiveWorkbook
    Set wsCopyTo = ActiveSheet

    '-------------------------------------------------------------
    'Open file with data to be copied

    Set wbCopyFrom = Workbooks.Open(strFile)
    Set wsCopyFrom = wbCopyFrom.Worksheets(1)

    '--------------------------------------------------------------
    'Copy Range

    wsCopyFrom.Range("A2:AA5000").Copy
    wsCopyTo.Range("A2").PasteSpecial Paste:=xlPasteValues, _
            Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Answer 1

更換

wsCopyTo.Range("A2").PasteSpecial Paste:=xlPasteValues, _
            Operation:=xlNone, SkipBlanks:=False, Transpose:=False

至

wsCopyTo.Range("A2").Insert xlShiftDown