復制Sheet(Accout)，復制的Sheet名字命名為“By TYPE",用vba怎麼寫

你可以使用以下的 VBA 代码来复制名为 "Accout" 的工作表，并将复制的工作表命名为 "By TYPE":

Sub CopySheet()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Accout") ' 将 "Accout" 替换为你要复制的工作表的名称
    
    ws.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) ' 复制工作表
    
    Dim newSheet As Worksheet
    Set newSheet = ActiveSheet ' 获取新复制的工作表的引用
    
    newSheet.Name = "By TYPE" ' 将新复制的工作表命名为 "By TYPE"
End Sub

请确保在运行此代码之前已经打开了工作簿，并且工作簿中存在名为 "Accout" 的工作表。运行此代码后，将在最后一个工作表的后面复制一个名为 "By TYPE" 的工作表。