返回列表 上一主題 發帖

[發問] 關於WorkSheets 名稱擷取

ashelyyen

帖子
4 
主題
2 
精華
0 
積分
17 
點名
0  
作業系統
window7 
軟體版本
office2010 
閱讀權限
10 
性別
女 
註冊時間
2015-8-11 
最後登錄
2015-11-12 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-8-17 11:03 | 只看該作者

[發問] 關於WorkSheets 名稱擷取

程式如下:
  1. Sub FnGetSheetsName()

  3.     Dim mainworkBook As Workbook

  5.     Set mainworkBook = ActiveWorkbook



  9.     For i = 2 To mainworkBook.Sheets.Count
  10.     mainworkBook.Sheets("Sheet1").Range("A" & i - 1) = mainworkBook.Sheets(i).Name
  11.     Next i


  14.     k = 1
  15.     Do While Not Cells(k, 1) = ""
  16.     k = k + 1
  17.     Loop
  18.     k = k - 1
  19.         
  20.         
  21.     For y = 0 To k - 1
  22.     For x = 1 To 20
  23.     Cells(y + 1, 1).Copy Cells(x + k + y * 20, 1)
  24.     Next
  25.    
  26.    
  27. Next



  31. End Sub
複製代碼
跑出來的結果:



不過我想要的部分是重覆部分，而不需要上段先列一次全部的sheet名稱，才開始跑我要重複的地方

想請問該怎麼改寫這段程式碼
謝謝各位的幫忙!!!
收藏 分享

ikboy

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

2016猴年全勤獎章
2#
發表於 2015-8-17 17:02 | 只看該作者
您要WorkSheets 名稱擷取, 循環一次不就可以了嗎,但往下看到您要重覆部分,這就不理解了,因在同一WB內不會有重覆WorkSheets 名稱.

簡單的 debug. print 所有WorkSheets 名稱.
sub zz()
for each s in sheets
  debug.print s.name
next
end sub
按 ctrl+g 看看結果

TOP

ashelyyen

帖子
4 
主題
2 
精華
0 
積分
17 
點名
0  
作業系統
window7 
軟體版本
office2010 
閱讀權限
10 
性別
女 
註冊時間
2015-8-11 
最後登錄
2015-11-12 
3#
發表於 2015-8-18 10:51 | 只看該作者
您要WorkSheets 名稱擷取, 循環一次不就可以了嗎,但往下看到您要重覆部分,這就不理解了,因在同一WB內不會有 ...
ikboy 發表於 2015-8-17 17:02



    好喔，我有再試看看，發現下面程式的確是問題所在。謝謝你~~   

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題