宏复制工作表并粘贴到使用粘贴特殊值的新文件

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