从一张纸复制并粘贴到另一张没有第一页中的公式

Question

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

Ive得到的薄片划分范围A6信息M65，并试图所有粘贴信息表决赛进入第一个空行，不用所有公式从不同的转移。

移动所有信息到最终

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