时间戳

首页 > 解决方案 > VBA将工作表复制到没有公式的新工作表

excel - VBA将工作表复制到没有公式的新工作表

问题描述

我正在尝试在同一个工作簿中复制任何选定的工作表（尽管工作表的名称）。首先，我尝试了复制和重命名我在其他地方找到的新工作表（带有公式）的代码。它运行良好：

Public Sub CopySheetAndRename()
    Dim newName As String
     On Error Resume Next
    newName = InputBox("Enter the name for the copied worksheet")
     If newName <> "" Then
        ActiveSheet.Copy After:=Worksheets(Sheets.Count)
        On Error Resume Next
        ActiveSheet.Name = newName
    End If
End Sub

但是，我只想让新创建的工作表没有公式。我尝试添加如下行：ActiveSheet.PasteSpecial Paste:=xlPasteValues 但它根本不起作用。我还阅读了这篇文章，将 Excel 工作表复制到另一本没有公式而没有任何结果的 Excel 书中。谢谢您的帮助！

斯坦利

标签： excelvbaexcel-formula

解决方案

推荐阅读