- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 1# starry1314 - Option Explicit
- Sub Ex()
- 'CurrentRegion 屬性 傳回 Range 物件，該物件代表目前的區域。目前區域是指以任意空白列及空白欄的組合為邊界的範圍。唯讀
- Sheets("清單").Range("A2:C2").CurrentRegion.Clear
- 'Sheets("清單"). Range("A2:K2").Select <<這樣做會出錯...
- '程式執行時 Sheets("清單") 不是活頁簿的作用中的工作表
- '請修改如下
- 'With Sheets("清單")
- ' .Select
- ' .Range("A2:K2").Select
- ' .Range(Selection, Selection.End(xlDown)).Clear
- 'End With
- End Sub
|
|
發表於 2015-7-30 08:40
| 