[發問] (己解決!)請大蝦們指導一下我這段代碼 : 關於 Row.Delete的問題

[版主管理留言]

GBKEE(2011/7/27 13:59): 哪蠍人是大蝦數入蚊自鑰減碴

本帖最後由 StanleyVic 於 2011-7-28 14:43 編輯

就如上圖,我想把 Cells(i,"A") ="" 的空格,delete. 而且要XLUP..
但無奈,不才...死循環了..

我上面打錯字 i=i-1 ( 我打錯了.. i=i=1)

請幫助修正一下.謝謝~

樓主熱帖

NeverTry , NeverNo !

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 102
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-5-3

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-7-27 13:12 | 只看該作者

回復 1# StanleyVic

基本上刪除儲存格必須由下往上逐一刪除
所以你應該用
for i =[A65536].end(xlup).row to 1 step -1
if cells(i,1)="" then cells(i,1).delete shift:=xlup
next
如果是空白儲存格並不是公式傳回空白
那用編輯/到/特殊/空白儲存格
做一次性刪除會快一點
這方法用錄製巨集就可以取得程式碼

學海無涯_不恥下問

TOP

StanleyVic

中學生 Rank: 2

帖子: 47
主題: 6
精華: 0
積分: 74
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: Macau
註冊時間: 2011-6-15
最後登錄: 2016-7-4

3^#

發表於 2011-7-27 14:52 | 只看該作者

回復 2# Hsieh

萬分感謝你的指導.為我解開困境了. 因為我就是困在 delete 後又逐上. 致使我不停的死循環.
謝謝你的教我由下方向上判斷的方法..

為了想多了解.想再痳煩你一下解釋 : For i = [A65536].End(xlUp).Row To 1 Step -1
這個 Step -1 是不是指由下至上每一次 i 都-1 的意思..? 還是..

NeverTry , NeverNo !

TOP

kimbal