Question

VBA另存为工作表1为新的工作簿，如何只复制数值

以下VBA另存为的工作簿，包含公式，单元格连接路径，如何修改为只另存为的工作簿是数值。

Sub 另存为()
On Error GoTo line
Sheet1.Activate '这个是表示第4张工作表并不是名称
ActiveSheet.Copy
ActiveWorkbook.Close SaveChanges:=True, Filename:=ThisWorkbook.Path & "\新工作簿.xls"
Sheet1.Select
Exit Sub
line:
ActiveWorkbook.Close False
End Sub

Answer 1

你这个程序是另存工作表
内容是没法改变的
建议你在 sheet1.select 后加下面内容
就变成数值了

Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

追问

执行的时候提示：SkipBlanks_:= 未找到命名参数
该如何增加参数

另外有个问题请教：
把合并的C4：E5 里面的内容，复制粘贴到 C5：E5 如何VBA如何写，
只粘贴数值

追答

出错提示的那个
把SkipBlanks :=False, 这句删掉

如果单独的把合并的C4：E5 里面的内容，复制粘贴到 C5：E5
range("C4:E5").Copy
range("C5").PAsteSpecial Paste:=xlPasteValues

追问

复制提示这个啊

追答

你这个把合并的C4：E5里面的内容，复制粘贴到C5：E5
要分解成好几步，取消合并，剪切，选择粘贴

Range("C4:E5").Select
Selection.UnMerge
Range("C4:E4").Select
Selection.Cut
Range("C5").Select
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False