- 帖子
- 2848
- 主題
- 10
- 精華
- 0
- 積分
- 2903
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2026-7-25
|
Sub CopySht()
Dim ShtN$, Sht As Worksheet
ShtN = InputBox("請輸入工作表名稱")
If ShtN = "" Then Exit Sub
On Error Resume Next
Set Sht = Sheets(ShtN)
If Not Sht Is Nothing Then MsgBox "工作表名稱已存在!": Exit Sub
ActiveSheet.Copy after:=Sheets(2)
ActiveSheet.Name = ShtN
End Sub |
|
發表於 2016-4-19 20:45
| 