vba 拷貝一個sheet頁的內容到另一個sheet中

 模板：templateName，目標sheet：sheetName

具體代碼如下：

Sub SheetCopy(sheetName As String, templateName As String)
'
' SheetCopy Macro
'

'
    Call AddWorksheetAfterLast(sheetName)
    Worksheets(templateName).Select
    Range("A:B").Select
    Selection.Copy
    Worksheets(sheetName).Select
    Range("A:B").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    'ActiveWorkbook.Save
    
End Sub

Private Sub AddWorksheetAfterLast(sheetName As String)
'
' AddWorksheetAfterLast Macro
'

'
    If (SheetExists(sheetName)) Then
        'Empty the contents of sheet
        Worksheets(sheetName).UsedRange.ClearContents
    Else
        Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = sheetName
    End If
End Sub

Private Function SheetExists(sheetName As String) As Boolean
'
' SheetExists
'

'
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.Name <> sheetName Then
            SheetExists = False
        Else
            SheetExists = True
            Exit For
        End If
    Next
End Function