彰化一整天的論壇

 找回密碼
 立即註冊
查看: 656|回復: 0

複製工作表並改名

[複製鏈接]
發表於 2016-8-31 10:46:50 | 顯示全部樓層 |閱讀模式
Public Sub copy_sheet()
    '複製工作表
    Sheets("頁首_頁尾").Select
    Sheets("頁首_頁尾").Copy after:=Sheets("頁首_頁尾")



End Sub

Public Sub rename_sheet(strSheetName As String)
    Sheets("頁首_頁尾 (2)").Select
    Sheets("頁首_頁尾 (2)").Name = strSheetName
End Sub

回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2019-10-20 08:36 , Processed in 0.135727 second(s), 21 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表