12
返回列表 上一主題 發帖

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

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
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
  1. Sub getSheetName()

  3.     Dim i As Integer
  4.     Dim shtname As Integer
  5.    
  6.     Worksheets("aa").Select
  7.     Range("B1").CurrentRegion.Clear
  8.    
  9.     Range("B1").Select
  10.    
  11.     For i = 7 To Worksheets.Count
  12.     Range("B1").Resize(20) = Worksheets(i).Name
  13.    
  14.               
  15.     Next i
  16.    
  17. End Sub
複製代碼
收藏 分享

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
12#
發表於 2015-8-23 18:13 | 只看該作者
回復 10# n7822123


    多謝指導!

TOP

准提部林

帖子
2833 
主題
10 
精華
0 
積分
2889 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-15 
11#
發表於 2015-8-22 16:41 | 只看該作者
Sub Test0822()
Dim xR As Range, j%
[aa!A:B].Clear
Set xR = [aa!A1]
For j = 7 To Sheets.Count
　　xR.Resize(20) = "=ROW(A1)"
　　xR(1, 2).Resize(20) = Sheets(j).Name
　　Set xR = xR(21)
Next j
End Sub

TOP

n7822123
　暱稱: 阿龍

中學生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 編輯
  1. Sub getSheetName()

  3. Dim i As Integer
  4. Dim shtname As Integer

  6. Worksheets("aa").Select
  7. Range("B1").CurrentRegion.Clear

  9. Range("B1").Select

  11. n = 1

  13. For i = 7 To Worksheets.Count

  15.   Range("B" & n).Resize(20) = Worksheets(i).Name

  17.   For j = 1 To 20
  18.     Range("A" & n) = j
  19.     n = n + 1
  20.   Next j
  21. Next i
  22.    
  23. End Sub
複製代碼
請收下，:D

TOP

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
9#
發表於 2015-8-21 21:23 | 只看該作者
回復 4# lpk187

多謝指導! :D

TOP

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
8#
發表於 2015-8-21 21:22 | 只看該作者
回復 7# ikboy

多謝指導! :D

TOP

ikboy

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

2016猴年全勤獎章
7#
發表於 2015-8-21 17:02 | 只看該作者
for i = 你的下標 to  你的上標
  for j = 1 to 20
    [a1]=join([a1], 你的物件)
      next i,j

TOP

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
6#
發表於 2015-8-21 16:21 | 只看該作者
回復 4# lpk187


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

TOP

ikboy

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

2016猴年全勤獎章
5#
發表於 2015-8-21 10:46 | 只看該作者
我有點奇怪,為甚麼missbb先進有過一句 Dim shtname As Integer, 是不是還有後期引用 sheets.name ?
但宣告成整數!

TOP

lpk187

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

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
4#
發表於 2015-8-21 08:55 | 只看該作者
本帖最後由 lpk187 於 2015-8-21 08:57 編輯

回復 3# missbb



循環需要再加上一個變數
  1. Sub getSheetName()

  3.     Dim i As Integer
  4.     Dim shtname As Integer
  5.    
  6.     Worksheets("aa").Select
  7.     Range("B1").CurrentRegion.Clear
  8.    
  9.     Range("B1").Select
  10.     n = 1
  11.     For i = 7 To Worksheets.Count
  12.    
  13.     Range("B" & n).Resize(20) = Worksheets(i).Name
  14.     n = n + 20
  15.     Next i
  16.    
  17. End Sub
複製代碼

TOP

        靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。
12
返回列表 上一主題