问像剪切一样复制选定内容的VBA代码，这样粘贴就不会修改引用？

EN

Dim formulas() As String
Dim initCopyCol As Integer
Dim initCopyRow As Integer
Dim columns As Integer
Dim rows As Integer

Sub copyFormulaRange()

    initCopyCol = Selection.Column
    initCopyRow = Selection.row

    columns = Selection.columns.Count
    rows = Selection.rows.Count

    ReDim formulas(1 To columns, 1 To rows)

    For i = 1 To columns
        For j = 1 To rows
            formulas(i, j) = Cells(initCopyRow + j - 1, initCopyCol + i - 1).Formula
        Next j
    Next i

End Sub

Sub pasteFormulaRange()

    Dim initPasteCol As Integer
    Dim initPasteRow As Integer

    initPasteCol = Selection.Column
    initPasteRow = Selection.row

    For i = 1 To columns
        For j = 1 To rows
            Cells(initPasteRow + j - 1, initPasteCol + i - 1).Formula = formulas(i, j)
        Next j
    Next i

End Sub