複製Excel工作表到另一個Excel工作簿，但只是格式和值

Question

我有兩個Excel工作簿Book_A和Book_B，我知道如何將整個表從副本 - >乙：有：

 wksSh1.Copy Before:=wkbBook_B.Sheets(1) 

但我只是想複製與值和格式，而不是公式的工作表。它是更多鈔票

Answer 1

wksSh1.Copy Before:=wkbBook_B.Sheets(1) 
with wkbBook_B.Sheets(1).UsedRange 
    .value = .value 'converts formulas to values 
end with 

Answer 2

使用PasteSpecial：

wksSh1.Copy 
With wkbBook_B.Sheets(1) 
    .PasteSpecial xlPasteFormats 
    .PasteSpecial xlPasteValues 
End With 

正如Scott評論說，對於早期版本的Excel（2003 +），你可以使用xlPasteValuesAndNumberFormats。

Answer 3

如果你知道行和列（或者您可以使用一個行一貫重視計算它們列），這是數量更安全：

For i = 2 To numberOfRows 
    For j = 1 To numberOfColumns 
     Cells(i, j).Value = Cells(i, j).Value 
    Next 
Next