0
這在概念上很簡單,但在實踐中很難做到。從一張紙複製並粘貼到另一張沒有第一頁中的公式
Ive得到的薄片劃分範圍A6信息M65,並試圖所有粘貼信息表決賽進入第一個空行,不用所有公式從不同的轉移。
移動所有信息到最終
Worksheets("Seperate").Range("A6:K100").Copy Worksheets("Final").Range("A6")
這在概念上很簡單,但在實踐中很難做到。從一張紙複製並粘貼到另一張沒有第一頁中的公式
Ive得到的薄片劃分範圍A6信息M65,並試圖所有粘貼信息表決賽進入第一個空行,不用所有公式從不同的轉移。
移動所有信息到最終
Worksheets("Seperate").Range("A6:K100").Copy Worksheets("Final").Range("A6")
使用PasteSpecial
功能。請閱讀MSDN的詳細信息。你需要通過(可能)xlPasteValues
作爲參數。
Worksheets("Seperate").Range("A6:K100").Copy
Worksheets("Final").Range("A6").PasteSpecial <put_here_parameters>
此代碼只複製範圍的值。
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