使用间接复制范围

Question

希望建立一个宏来复制和粘贴数据。要复制的数据的列长将不断变化，因此，我试图找到一种捕获此数据的方法。我想直接将一个公式放到表格中以放置范围是一个不错的开始，所以我想知道如何从位于单元格N1中的范围进行复制。

Answer 1

希望这段代码是一个好的开始：

Sub CopyPaste()
    Dim rngCopy             As Excel.Range
    Dim rngPaste            As Excel.Range

    With Sheet1
        Set rngCopy = .Range(.Range("N1").Value)
        Set rngPaste = .Range("A1")
        rngCopy.Copy
        rngPaste.PasteSpecial (xlPasteAll)
    End With
End Sub

此代码假定您要复制单元格N1中指定范围内的数据并将其粘贴到单元格A1中（可以通过更改rngPaste参数轻松地对其进行修改）。

如果您有任何疑问，请告诉我。保重。