返回列表 上一主題 發帖

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

chen_cook

帖子
81 
主題
2 
精華
0 
積分
95 
點名
124  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-2-29 
最後登錄
2025-5-4 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
1# 跳轉到 »
發表於 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

TOP

        靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。
返回列表 上一主題