excel - 创建一个新选项卡，从另一个选项卡复制数据，然后将数据(带格式)粘贴到新选项卡中

Question

我有一个名为“概述”的选项卡，它要求我输入项目的名称。
一旦我写好项目名称，我想要一个宏来抓取项目名称，创建一个新选项卡，并将新选项卡的名称更改为项目名称。
之后，我想让宏转到另一个选项卡(让我们将此选项卡称为"template")，复制整个工作表，并将数据粘贴到新创建的选项卡中。我希望"template"选项卡中的格式也流向新选项卡。

Sub AddNewTab()
 
Dim ws As Worksheet
Set ws = Worksheets("I DON'T KNOW WHAT TO WRITE HERE")
    
Rem Set working worksheets
Set WshSrc = ThisWorkbook.Worksheets("Source")
Set WshTrg = ThisWorkbook.Worksheets("Target")
    
'Create new tab based on project name
Sheets.Add(After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count)).Name = Range("I2")

'Copy data from Template tab
Worksheets("Template").Range("A1:H12").Copy

Worksheets("I DON'T KNOW WHAT TO WRITE HERE").Range("A1").PasteSpecial

'hide gridlines in a worksheet with the project name
ws.Activate
ActiveWindow.DisplayGridlines = False

End Sub

“概述”页面中的单元格 I2 是写入项目名称的位置。

Answer 1

Option Explicit

Sub AddNewTab()
    Dim n As Long
    With ThisWorkbook
        n = .Sheets.Count
        .Sheets("Template").Copy after:=.Sheets(n)
        .Sheets(n + 1).Name = .Sheets("Overview").Range("I2")
    End With
End Sub