自選股數量更改時程式便有問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 自選股數量更改時程式便有問題

返回列表下一主題上一主題發帖

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

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

1^# 跳轉到 »

發表於 2016-3-28 07:37 | 顯示全部帖子

回復 1# chairles59

lR = Range("A2").End(xlDown).Row 'a欄空白以下全刪除
Rows(lR + 1 & ":400").Clear
Selection.Delete shift:=xlUp

複製代碼

結論是將 Selection.Delete shift:=xlUp
將它 Remark 起來，既已清除下面內容，
何須再 Delete shift:=xlUp，何況你的
Selection 是指 Sheet1 而非
Rows(lR + 1 & ":400")。

lR = Range("A2").End(xlDown).Row 'a欄空白以下全刪除
Rows(lR + 1 & ":400").Clear
' Selection.Delete shift:=xlUp

複製代碼

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2016-3-28 07:40 | 顯示全部帖子

回復 1# chairles59

靜思自在 : 能善用時間的人，必能掌握自己努力的方向。

返回列表下一主題上一主題