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

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

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

中學生 Rank: 2

帖子: 215
主題: 70
精華: 0
積分: 290
點名: 0
作業系統: window xp
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-27
最後登錄: 2024-1-29

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-8-20 23:33 | 只看該作者

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

工作部有20張SHEETS, 由第7張至最後一張的SHEET名稱, 放在AA檔之F1起, 每個SHEET名稱COPY 20次. 而E1顯示1,2,3,4,....20 , 我寫了下列, 只可以出現最後一張工作表, 請教錯誤在那?

1 工作表名1
2 工作表名1
3 工作表名1
4 工作表名1
...20 工作表名1

1 工作表名2
2 工作表名2
3 工作表名2
4工作表名2
...20 工作表名2

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

複製代碼

樓主熱帖

收藏

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 16
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-3-28

2016猴年全勤獎章

2^#

發表於 2015-8-20 23:51 | 只看該作者

你的代碼重覆填在Sheets("aa").Range("B1").Resize(20)
當然衹會見到最後一頁的頁名, 另外由7~最後一頁的頁名都是數字?

中學生 Rank: 2

帖子: 215
主題: 70
精華: 0
積分: 290
點名: 0
作業系統: window xp
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-27
最後登錄: 2024-1-29

3^#

發表於 2015-8-21 08:30 | 只看該作者

回復 2# ikboy

是英文加數字, 但1-6張SHEET是不用處理的.有勞!

高中生 Rank: 3 Rank: 3

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

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

4^#

發表於 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

複製代碼

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 16
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-3-28

2016猴年全勤獎章

5^#

發表於 2015-8-21 10:46 | 只看該作者

我有點奇怪,為甚麼missbb先進有過一句 Dim shtname As Integer, 是不是還有後期引用 sheets.name ?
但宣告成整數!

中學生 Rank: 2

帖子: 215
主題: 70
精華: 0
積分: 290
點名: 0
作業系統: window xp
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-27
最後登錄: 2024-1-29

6^#

發表於 2015-8-21 16:21 | 只看該作者

回復 4# lpk187

如何在A1加上1,2,3.....20, 再重複?
有勞

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 16
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-3-28

2016猴年全勤獎章

7^#

發表於 2015-8-21 17:02 | 只看該作者

for i = 你的下標 to  你的上標
  for j = 1 to 20
[a1]=join([a1], 你的物件)
   next i,j

中學生 Rank: 2

帖子: 215
主題: 70
精華: 0
積分: 290
點名: 0
作業系統: window xp
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-27
最後登錄: 2024-1-29

8^#

發表於 2015-8-21 21:22 | 只看該作者

回復 7# ikboy

多謝指導! :D

中學生 Rank: 2

帖子: 215
主題: 70
精華: 0
積分: 290
點名: 0
作業系統: window xp
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-27
最後登錄: 2024-1-29

9^#

發表於 2015-8-21 21:23 | 只看該作者

回復 4# lpk187

多謝指導! :D

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

10^#

發表於 2015-8-21 22:26 | 只看該作者

本帖最後由 n7822123 於 2015-8-21 22:28 編輯

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
For j = 1 To 20
Range("A" & n) = j
n = n + 1
Next j
Next i
End Sub

複製代碼

請收下，:D

靜思自在 : 要批評別人時，先想想自己是否完美無缺。

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