標題: [發問] 將儲存格內文字帶入新增的工作表中 [打印本頁]

---

作者: Michelle-W    時間: 2016-7-13 17:10     標題: 將儲存格內文字帶入新增的工作表中

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

想要結果是這樣↓
[attach]24660[/attach]


[attach]24661[/attach]

---

作者: Kubi    時間: 2016-7-13 20:48

回復 1# Michelle-W
請參考
[attach]24663[/attach]

---

作者: Michelle-W    時間: 2016-7-14 11:35

回復 2# Kubi


  太感謝你了!!!^^

---

作者: 准提部林    時間: 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)