取工作表名稱再覆制多次 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 取工作表名稱再覆制多次

返回列表下一主題上一主題發帖

[發問] 取工作表名稱再覆制多次

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-2-26

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2015-8-21 08:55 | 顯示全部帖子

本帖最後由 lpk187 於 2015-8-21 08:57 編輯

回復 3# missbb

循環需要再加上一個變數

Sub getSheetName()
Dim i As Integer
Dim shtname As Integer
Worksheets("aa").Select
Range("B1").CurrentRegion.Clear
Range("B1").Select
n = 1
For i = 7 To Worksheets.Count
Range("B" & n).Resize(20) = Worksheets(i).Name
n = n + 20
Next i
End Sub

複製代碼

靜思自在 : 【做人的開始】每一天都是故人的開始，每一個時刻都是自己的警惕。

返回列表下一主題上一主題