暱稱: 隨風飄蕩的羽毛 頭銜: [御用]潛水艇
高中生 
- 帖子
- 852
- 主題
- 79
- 精華
- 0
- 積分
- 918
- 點名
- 0
- 作業系統
- Windows 7 , XP
- 軟體版本
- Office 2007, Office 2003,Office 2010,YoZo Office
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 宇宙
- 註冊時間
- 2011-4-8
- 最後登錄
- 2024-2-21
|
本帖最後由 mark15jill 於 2012-3-26 09:21 編輯
回復 1# jeremy
麻煩預設 工作表數為1個
Sub xj()
For xn = 2 To 20 ' 從第二個 的原因是不包含 目錄這個
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("sheet" & xn).Name = Sheet1.Range("a" & xn).Value 'sheet1 設定為 要儲存的名稱
Next xn
End Sub
缺點是 此程式搭配 判斷SHEET 是否存在的程式段
 測試.rar (13.01 KB)
|
|
發表於 2012-3-26 09:15
| 