- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 155
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-6-27
               
|
回復 3# yueh0720 - Sub Ex()
- Dim t&
- [C2:C65536] = ""
- [C2] = InputBox("起始碼")
- t = InputBox("結束值")
- [C2].Resize(t - [C2] + 1).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
- Step:=1, Trend:=False
- End Sub
複製代碼 |
|