- 帖子
- 4
- 主題
- 2
- 精華
- 0
- 積分
- 17
- 點名
- 0
- 作業系統
- window7
- 軟體版本
- office2010
- 閱讀權限
- 10
- 性別
- 女
- 註冊時間
- 2015-8-11
- 最後登錄
- 2015-11-12
|
程式如下:- 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
不過我想要的部分是重覆部分，而不需要上段先列一次全部的sheet名稱，才開始跑我要重複的地方
想請問該怎麼改寫這段程式碼
謝謝各位的幫忙!!! |
|
發表於 2015-8-17 11:03
| 
