- 帖子
- 112
- 主題
- 19
- 精華
- 0
- 積分
- 136
- 點名
- 0
- 作業系統
- window
- 軟體版本
- excel
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-3-12
- 最後登錄
- 2022-11-29
|
假設你將想要設定的名稱依序放在一個叫做sheet3的sheet 的a1, a2, a3......
那他就可以依序幫你直接寫入每個sheet的Name
Sub xx()
For sh = 1 To 10
Sheets(sh).Name = Sheets("sheet3").Range("a" & sh)
Next
End Sub |
|
發表於 2015-4-8 11:31
| 