Excel VBA - 如何仅插入值？

Question

我正在寻找一种方法来从其他工作簿复制一个范围(copyrange 存在于 11 列和各种行中)，并仅在我的主工作簿中，在已经存在的数据下方插入/粘贴值。

只是粘贴没有问题，但是因为我不希望它覆盖最后一个(SUM-)行，所以我想插入这些值。据我所知，没有像 InsertSpecial xlInsertValues 这样的东西。

那么如何根据复制范围的计数行插入整个空行，而不是将值仅粘贴到“E”到“O”列中？

一些先决条件是:

复制范围存在于 11 列和各种行

我试图避免在两个文档之间切换两次。所以我只想打开 extern 工作簿，复制值，打开我的主工作簿，然后在范围内左右插入带有空白单元格的复制数据。

这就是我到目前为止所得到的。插入部分都出错了，因为它不仅仅粘贴/插入值。请注意，它只是更大代码的一部分。 Rng31 是外部工作簿中的复制范围。

        Dim Rng31 As Range
        Set Rng31 = Rng21.Resize(Rng21.Rows.Count, Rng21.Columns.Count + 10)
        Dim regels As Integer
        regels = Rng31.Rows.Count
        Rng31.Copy

        Wbbase.Activate
        Sheets(2).Activate
        Dim onderste As Range
        Set onderste = Range("E65536").End(xlUp).Offset(1, 0)
        onderste.Insert shift:=xlDown
        Selection.PasteSpecial xlPasteValues

Answer 1

...
InsertValues Rng21.Resize(Rng21.Rows.Count, Rng21.Columns.Count + 10), _
             Wbbase.Sheets(2).Range("E65536").End(xlUp).Offset(1, 0)
...           




Sub InsertValues(rngCopyFrom As Range, rngCopyTo As Range)
    Dim rngDest As Range
    Set rngDest = rngCopyTo.Resize(rngCopyFrom.Rows.Count, _
                                   rngCopyFrom.Columns.Count)
    Application.CutCopyMode = False 'Edit Added:clear any copied data
    rngDest.Insert shift:=xlDown
    rngDest.Offset(-rngCopyFrom.Rows.Count).Value = rngCopyFrom.Value
End Sub