標題:
[發問]
關於WorkSheets 名稱擷取
[打印本頁]
作者:
ashelyyen
時間:
2015-8-17 11:03
標題:
關於WorkSheets 名稱擷取
程式如下:
Sub FnGetSheetsName()
Dim mainworkBook As Workbook
Set mainworkBook = ActiveWorkbook
For i = 2 To mainworkBook.Sheets.Count
mainworkBook.Sheets("Sheet1").Range("A" & i - 1) = mainworkBook.Sheets(i).Name
Next i
k = 1
Do While Not Cells(k, 1) = ""
k = k + 1
Loop
k = k - 1
For y = 0 To k - 1
For x = 1 To 20
Cells(y + 1, 1).Copy Cells(x + k + y * 20, 1)
Next
Next
End Sub
複製代碼
跑出來的結果:
[attach]21738[/attach]
不過我想要的部分是
重覆部分
，而不需要上段先列一次全部的sheet名稱，才開始跑我要重複的地方
想請問該怎麼改寫這段程式碼
謝謝各位的幫忙!!!
作者:
ikboy
時間:
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 看看結果
作者:
ashelyyen
時間:
2015-8-18 10:51
您要WorkSheets 名稱擷取, 循環一次不就可以了嗎,但往下看到您要重覆部分,這就不理解了,因在同一WB內不會有 ...
ikboy 發表於 2015-8-17 17:02
好喔，我有再試看看，發現下面程式的確是問題所在。謝謝你~~
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
