Excel VBA复制整个工作表并粘贴为值

Question

我需要创建一个VBA语句，它将复制整个活动工作表然后粘贴为值 - 看起来很简单，但我不熟悉VBA - 它本质上是自动化左上角的'click'并复制 - >粘贴为值。这是我正在尝试的：

Sub CopyPasteSheetAsValues()
'Copy and Paste Summary Sheet as Values
Sheets("Summary Build").Cells.Copy
Sheets("Summary Build").Cells.PasteSpecial Paste:=xlPasteValue
End Sub

Answer 1

你错过了xlPasteValues中的s。此外，最好添加Application.CutCopyMode = False以避免复制区域周围的行军蚂蚁。

Sub CopyPasteSheetAsValues()
    'Copy and Paste Summary Sheet as Values
    Sheets("Summary Build").Cells.Copy
    Sheets("Summary Build").Cells.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub