標題: [發問] 自動產生不同名稱的SHEET [打印本頁]

---

作者: missbb    時間: 2015-2-3 19:40     標題: 自動產生不同名稱的SHEET

[attach]20190[/attach]可否用VBA按部門編號, 自動產生以部門編號為名稱的SHEET?

---

作者: 電暖爐    時間: 2015-2-3 22:56

Sub 一()
For i = 1 To 3
Cells(1, 1).AutoFilter 2, i
Cells(1, 1).CurrentRegion.Copy
Worksheets.Add After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = "SHEET" & i
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets(1).Select
ActiveSheet.ShowAllData
Next i
ActiveSheet.AutoFilterMode = False
End Sub

---

作者: missbb    時間: 2015-2-5 22:07

回復 2# 電暖爐

感謝!

---

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