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

ymdaylpp  于 2023-05-08  发布在  其他
关注(0)|答案(1)|浏览(313)

我需要创建一个VBA语句,它将复制整个活动工作表,然后粘贴为值-似乎很简单,但我不熟悉VBA -它本质上是自动化的'点击'在左上角和复制->粘贴为值。以下是我正在尝试的:

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

wnvonmuf1#

您在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

相关问题