excel - 如何将整个工作表复制到引用 Excel 中工作表名称的新创建工作表？

Question

我想创建一个工作表并通过引用另一个工作表中的单元格来重命名它。到目前为止，这很有效。

但是，我想将所有内容复制并粘贴为值，但​​将旧工作表的格式保持到这个新创建的工作表。我不知道如何引用这个刚刚重命名的工作表。

代码如下:

Private Sub CreateSheet()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets.Add(After:=Worksheets("OldSheet"))

'the new sheet has the name from B3 of the old sheet.
ws.Name = Sheets("OldSheet").Range("B3")

'this copy paste part doesn't work, it gives an error.

Sheets("OldSheet").Copy
Sheets("ws").PasteSpecial Paste:=xlPasteValues

End Sub

Answer 1

这是一个简单的方法。创建现有工作表的副本，然后使用 UsedRange.Value = UsedRange.Value

With ThisWorkbook
    .Sheets("OldSheet").Copy After:=.Sheets(.Sheets.Count)

    With .Sheets(.Sheets.Count)
        .Name = ThisWorkbook.Sheets("OldSheet").Range("B3").Value
        .UsedRange.Value = .UsedRange.Value
    End With
End With