vba,將特定Sheet名稱移到最後?

💻 軟件台軟體

[匿名]

2015-08-25 7:00 am

請教VBA高手,
(1)excel,內有很多個Sheet,名稱分別為合計,地址,商品,數量.....工資.
(2)Sheet為合計的順序擺第一個,合計內有VBA 控制一些動作.
問題:我想製作一個按鍵,將Sheet名稱為"地址",移到這份excel Sheet最後一個,該如何做?

回答 (2)

[匿名]

2015-08-25 11:11 am

✔ 最佳答案

Sheets("地址").Move After:=Sheets(Sheets.Count)

👍 3 👎 0

先生

2015-08-25 3:42 pm

Sub 巨集1()
For i = 1 To Sheets.Count
If Sheets(i).Name = "地址" Then Sheets("地址").Move After:=Sheets(Sheets.Count)
Next
End Sub

👍 1 👎 0