標題: [發問] 請問此清除至最後儲存格指令該如何縮短 ? [打印本頁]

---

作者: starry1314    時間: 2015-7-30 00:18     標題: 請問此清除至最後儲存格指令該如何縮短 ?

Sheets("清單").Select
    Range("A2:K2").Select
    Range(Selection, Selection.End(xlDown)).Clear


如何將以上指令做優化呢?

    Sheets("清單"). Range("A2:K2").Select  <<這樣做會出錯...
想縮短成一行指令且能否不要使用select

---

作者: GBKEE    時間: 2015-7-30 08:40

回復 1# starry1314

1. Option Explicit
   
2. Sub Ex()
   
3.     'CurrentRegion 屬性 傳回 Range 物件，該物件代表目前的區域。目前區域是指以任意空白列及空白欄的組合為邊界的範圍。唯讀
   
4.     Sheets("清單").Range("A2:C2").CurrentRegion.Clear
   
5.     'Sheets("清單"). Range("A2:K2").Select  <<這樣做會出錯...
   
6.     '程式執行時 Sheets("清單") 不是活頁簿的作用中的工作表
   
7.     '請修改如下
   
8.    'With Sheets("清單")
   
9.    '     .Select
   
10.    '     .Range("A2:K2").Select
    
11.    '     .Range(Selection, Selection.End(xlDown)).Clear
    
12.    'End With
    
13. End Sub

複製代碼

---

作者: starry1314    時間: 2015-7-30 15:29

回復 2# GBKEE
感謝教學~~~

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)