返回列表 上一主題 發帖

[發問] Excel 2007 如何批量修改工作表名稱？

clianghot546

帖子
23 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2014-6-24 
最後登錄
2024-4-11 
1# 跳轉到 »
發表於 2016-2-15 09:54 | 顯示全部帖子
參考看看

Sub getSheetName()
    Dim i As Integer   
    Worksheets(1).Select
    For i = 2 To Worksheets.Count
        Range("A" & (i - 1)).Value = Worksheets(i).Name
    Next
End Sub

TOP

        靜思自在 : 真正的愛心，是照顧好自己的這顆心。
返回列表 上一主題