- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 218
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-9-7
               
|
回復 1# freeffly
Dim sht()
k = Sheets.Count
Do Until i = 5
ReDim Preserve sht(i)
sht(i) = Sheets(k).Name
k = k - 1
i = i + 1
Loop
Sheets(sht).Select |
|
發表於 2011-10-12 15:25
| 