返回列表下一主題上一主題發帖

[發問] 將儲存格內文字帶入新增的工作表中

Michelle-W

中學生 Rank: 2

帖子: 63
主題: 13
精華: 0
積分: 122
點名: 0
作業系統: Windows
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2015-4-22
最後登錄: 2019-7-19

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-7-13 17:10 | 只看該作者

[發問] 將儲存格內文字帶入新增的工作表中

請問目前需要一次新增多個工作表
且工作表的名稱為儲存格A2:A11的文字(可能會隨時改變文字，是個變數，若有重複sheet名稱在，就不在新增)，依序排在最後面
請問應該要怎麼做? ><

想要結果是這樣↓

[attach]24661[/attach]

新增工作表名字.rar (6.24 KB)

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-27

4^#

發表於 2016-7-16 18:19 | 只看該作者

Sub test()
Dim AA, Sht As Worksheet
For Each AA In [總表!A2:A11].Value
　　If AA = "" Then GoTo 101
　　On Error Resume Next
　　Set Sht = Nothing: Set Sht = Sheets(AA & "")
　　On Error GoTo 0
　　If Sht Is Nothing Then Sheets.Add(After:=Sheets(Sheets.Count)).Name = AA
101: Next
Sheets("總表").Select
End Sub

TOP

Michelle-W