標題: [發問] 活頁簿多個分頁更名 [打印本頁]

---

作者: gracyei    時間: 2012-7-12 00:25     標題: 活頁簿多個分頁更名

請教各位高手大大,
           小弟有一個活頁簿內有數十個分頁,列出一個名稱列表後,要如何依名稱列表將分頁名稱更改成列表上的名稱??
            [attach]11648[/attach]

---

作者: chen_cook    時間: 2012-7-12 04:53

回復 1# gracyei


大概的作法,看的懂吧!!!

    For i= 1 To Worksheets("分頁名稱").[A65535].End(xlUp).Row
                  Sheets("Sheet" & i).Name = Worksheets("分頁名稱").Cells(i, 1).Value
    Next i

---

作者: hugh0620    時間: 2012-7-12 10:53

回復 1# gracyei

下述程式碼在執行時~ 可避免重覆執行時產生錯誤~
供你參考~

1. Sub EX()
   
2. 
   
3. Dim Sh As Worksheet
   
4. 
   
5. For Each Sh In Sheets
   
6.     If Sh.Name <> "分頁名稱" Then
   
7.     Sh.Name = Sheet1.Range("A" & I + 1)
   
8.     I = I + 1
   
9.     End If
   
10. Next
    
11. End Sub

複製代碼

---

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