- 帖子
- 2848
- 主題
- 10
- 精華
- 0
- 積分
- 2903
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2026-7-25
|
Sub ex()
Dim xL As Range
Set xL = Sheets(2).Cells(1, Columns.Count).End(xlToLeft)(1, 2)
xL = Format(Date, "yyyymmdd")
xL(2, 1).Resize(86) = Sheets(1).[C11].Resize(86).Value
Range(xL, xL(Rows.Count, 1).End(xlUp)).Name = "'" & Sheets(2).Name & "'!Print_Area"
End Sub |
|
發表於 2017-4-9 10:19
| 