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

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

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

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

高中生 Rank: 3 Rank: 3

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

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

複製代碼

靜思自在 : 改變自己是自救，影響別人是救人。

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