宏複製工作表並粘貼到使用粘貼特殊值的新文件

Question

我有一個宏，我希望它從文件A複製工作表1，並將其粘貼（使用粘貼特殊值）到文件B中，並隱藏文件B中粘貼圖紙上的宏按鈕？這是我的出發點

Private Sub Update_Click() 

Sheets("Dallas").Select 
Sheets("Dallas").Copy 

End Sub 

Answer 1

如果你只希望複製單元格值，沒有別的，一個快捷方式是這樣的：

dim rgSource as range 
dim rgTarget as range 

set rgSource = ActiveSheet.UsedRange ' cells containing values on src sheet 
set rgTarget = Workbooks.Add.Worksheets(1).Cells(1,1) ' new range on target sheet 
set rgTarget = rgTarget.Resize(rgSource.Rows.Count, rgSource.Columns.Count) ' same sz 

rgTarget = rgSource.Value ' copies values into the target range on the other sheet