[發問] 關於WorkSheets 名稱擷取

ashelyyen

程式如下:

1. Sub FnGetSheetsName()
   
2. 
   
3.     Dim mainworkBook As Workbook
   
4. 
   
5.     Set mainworkBook = ActiveWorkbook
   
6. 
   
7. 
   
8. 
   
9.     For i = 2 To mainworkBook.Sheets.Count
   
10.     mainworkBook.Sheets("Sheet1").Range("A" & i - 1) = mainworkBook.Sheets(i).Name
    
11.     Next i
    
12. 
    
13. 
    
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
    
28. 
    
29. 
    
30. 
    
31. End Sub

複製代碼

跑出來的結果:

下載 (30.46 KB)
result

2015-8-17 10:59

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

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

ikboy

您要WorkSheets 名稱擷取, 循環一次不就可以了嗎,但往下看到您要重覆部分,這就不理解了,因在同一WB內不會有重覆WorkSheets 名稱.

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

ashelyyen

您要WorkSheets 名稱擷取, 循環一次不就可以了嗎,但往下看到您要重覆部分,這就不理解了,因在同一WB內不會有 ...
ikboy 發表於 2015-8-17 17:02

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