Question

这在概念上很简单，但在实践中我很难做到。

我已获得有关工作表单独范围 A6 至 M65 的信息，并尝试将有关Sheet Final的所有信息粘贴到第一个空白行，而不从Separate传输所有公式。

将所有信息移至最终

Worksheets("Seperate").Range("A6:K100").Copy Worksheets("Final").Range("A6")

Answer 1

使用PasteSpecial功能。阅读MSDN详细信息。您需要传递（可能）xlPasteValues作为参数。

Worksheets("Seperate").Range("A6:K100").Copy 
Worksheets("Final").Range("A6").PasteSpecial <put_here_parameters>

Answer 2

此代码仅复制范围值。

Sub test()
    Dim vDB As Variant
    Dim Target As Range

    Set Target = Worksheets("Final").Range("A" & Rows.Count).End(xlUp)(2)
    vDB = Worksheets("Seperate").Range("A6:K100")
    Target.Resize(UBound(vDB, 1), UBound(vDB, 2)) = vDB
End Sub

从一张纸张复制并粘贴到另一张纸张而不使用第一页中的公式

2 个答案: