返回列表 上一主題 發帖

自選股數量更改時程式便有問題

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
1# 跳轉到 »
發表於 2016-3-28 07:37 | 顯示全部帖子
回復 1# chairles59
  1. lR = Range("A2").End(xlDown).Row  'a欄空白以下全刪除
  2. Rows(lR + 1 & ":400").Clear
  3. Selection.Delete shift:=xlUp
複製代碼

結論是將 Selection.Delete shift:=xlUp
將它 Remark 起來，既已清除下面內容，
何須再 Delete shift:=xlUp，何況你的
Selection 是指 Sheet1 而非
Rows(lR + 1 & ":400")。
  1. lR = Range("A2").End(xlDown).Row  'a欄空白以下全刪除
  2. Rows(lR + 1 & ":400").Clear
  3. '  Selection.Delete shift:=xlUp
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
2#
發表於 2016-3-28 07:40 | 顯示全部帖子
回復 1# chairles59

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題