選擇性空白列,如何刪除

errol.sun

各位大大好
           小弟最近開始學習VBA,但是書看了還是不懂,也參考錄製巨集得程式

           但是錄製巨集時,也是人為判斷那一列需要刪除,那一列不用刪除

           想來想去,還是不得半解,只好勇於嘗試求助於板上各位大大得幫忙

           附件一為EXCEL不規則空白列

           附件二為小弟撰寫得程式,還希望各位版大,能夠不吝指教

           謝謝

下載 (52.2 KB)
附件一

2011-1-21 22:13

下載 (17.78 KB)
附件二

2011-1-21 22:13

Hsieh

回復 1# errol.sun
刪除列要從最大列位開始往上刪除

1. Sub nn()
   
2. For i = Sheet1.UsedRange.Rows.Count To 1 Step -1
   
3.    If Application.CountA(Sheet1.UsedRange.Rows(i)) = 0 Then Sheet1.UsedRange.Rows(i).Delete
   
4. Next
   
5. End Sub

複製代碼

errol.sun

感謝版主得解答

程式部份,容小弟自已先想過

若還是無解,再請求版主得解答

再一次感謝版主得幫忙
謝謝

wufonna

請問如何刪除如下的空白列~~~我執行了無法刪
謝謝

‧ 亞幣聯合防線成形 新台幣大漲1.2角 2010/04/15  0  343  

‧ 台幣31.5攻防 央行戰外資 2010/04/13  0  743  

‧ 打炒匯 央行尾盤扮殺手 2010/04/09  0  552  

‧ 央行：銀行尾盤少賣美元 2010/04/09  0  516  

‧ 匯銀：央行放寬台幣波幅 2010/04/09  0  561  

‧ 外資湧入 台幣創近一年新高 2010/04/08  0  771  

‧ 台幣漲幅落後 恐成投機客標靶 2010/04/08  0  672  

‧ 亞幣強勢 台幣續看漲 2010/04/07  0  538  

‧ 黃金淡季 區間操作 2010/04/04  0  348  

‧ 匯率利率 相互牽引的親蜜關係 2010/04/04  0  533  

‧ 熱錢湧入 央行尾盤阻升 2010/04/01  0  508  

‧ 央行蓋頂 台幣破不了31.8 2010/03/31  0  748  

‧ 人民幣喊漲 央行力守台幣31.8 2010/03/30  0  511  

‧ 央行殺尾盤 修理炒匯客 2010/03/19  0  1131  

‧ 台幣一度升破31.7元 2010/03/18  0  242  

‧ 熱錢大舉湧入 台幣上看31.5 2010/03/18  0  908

Hsieh

回復 4# wufonna


    你的方法為何?
資料是否確定為空白?
建議上傳檔案

wufonna

謝謝^0^~~~~~~~~~~~~~~~~~~~~

Hsieh

回復 6# wufonna

1. Sub nn()
   
2. Columns("A").Replace ChrB(32), ""
   
3. Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   
4. End Sub

複製代碼

wufonna

謝謝版大，提供這討論版給我們學習，
受益良多，謝謝