Question

我正在运行以下代码来复制和重命名工作表，但由于某种原因，该名称并未发生变化。有任何想法吗？

提前致谢。

副本（）

Sheets("TV Indicators").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Cells.Copy
Sheets(Sheets.Count).Cells.PasteSpecial xlPasteValues
Sheets(Sheets.Count).Name = Sheets("TV Indicators").Range("A3").Value

End Sub

Answer 1

试试这个：

Sub copier()

    Sheets("TV Indicators").Copy After:=Sheets(Sheets.Count)
    With ActiveSheet
        .Cells.Copy
        .Cells.PasteSpecial xlPasteValues
        .Name = Sheets("TV Indicators").Range("A3").Value
    End With
    Application.cutcopymode = false
    range("A1").Select

End Sub

可以吗？

VBA使用格式复制工作表

1 个答案: