返回列表 上一主題 發帖

[發問] 自動產生不同名稱的SHEET

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-2-3 19:40 | 只看該作者

[發問] 自動產生不同名稱的SHEET

working.rar (7.76 KB) 可否用VBA按部門編號, 自動產生以部門編號為名稱的SHEET?
收藏 分享

電暖爐

帖子
45 
主題
10 
精華
0 
積分
62 
點名
0  
作業系統
win8 
軟體版本
office2007 
閱讀權限
20 
註冊時間
2015-1-18 
最後登錄
2015-10-9 
2#
發表於 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

TOP

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
3#
發表於 2015-2-5 22:07 | 只看該作者
回復 2# 電暖爐

感謝!

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題