[發問] 活頁簿多個分頁更名

gracyei

請教各位高手大大,
           小弟有一個活頁簿內有數十個分頁,列出一個名稱列表後,要如何依名稱列表將分頁名稱更改成列表上的名稱??
             分頁更名.rar (1.57 KB)

下載次數: 9

2012-7-12 00:24

chen_cook

回復 1# gracyei


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

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

hugh0620

回復 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

複製代碼