返回列表 上一主題 發帖

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

Michelle-W

帖子
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)

收藏 分享

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
2#
發表於 2016-7-13 20:48 | 只看該作者
回復 1# Michelle-W
請參考
新增工作表名字.rar (17.85 KB)

TOP

Michelle-W

帖子
63 
主題
13 
精華
0 
積分
122 
點名
0  
作業系統
Windows 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2015-4-22 
最後登錄
2019-7-19 
3#
發表於 2016-7-14 11:35 | 只看該作者
回復 2# Kubi


  太感謝你了!!!^^

TOP

准提部林

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

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題