Re: [算表] EXCEL新增大筆sheet並命名
Sub sheet()
Dim i As Integer
For i = 963 To 1 Step -1
ActiveWorkbook.Sheets.Add before:=Thisworkbook.sheets(1)
thisworkbook.sheets(1).Name = "r" & i + 3
Next i
End sub
※ 引述《haterking (haterking)》之銘言：
: ※ 引述《haterking (haterking)》之銘言：
: Sub sheet()
: Dim i As Integer
: For i = 1 To 963
: ActiveWorkbook.Sheets.Add
: Next i
: End sub
: 這樣打雖然有跑出來,不過他的順序是從sheet963到sheet1,顛倒過來了
: 我要如何把它轉回來,或是我打的是錯的,麻煩替我解答,感謝!
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.36.129.192
※ 編輯: ramblelife 來自: 114.36.129.192 (01/11 01:29)
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 5 之 5 篇)：
Office 近期熱門文章
PTT數位生活區 即時熱門文章
