Board logo

標題: 選擇性空白列,如何刪除 [打印本頁]
作者: errol.sun    時間: 2011-1-21 22:16     標題: 選擇性空白列,如何刪除

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

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

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

           附件一為EXCEL不規則空白列

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

           謝謝

[attach]4481[/attach]


[attach]4482[/attach]
作者: Hsieh    時間: 2011-1-21 23:30

回復 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    時間: 2011-1-21 23:48

感謝版主得解答

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

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

再一次感謝版主得幫忙
謝謝
作者: wufonna    時間: 2011-1-25 14:39

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

• 亞幣聯合防線成形 新台幣大漲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    時間: 2011-1-25 14:54

回復 4# wufonna


    你的方法為何?
資料是否確定為空白?
建議上傳檔案
作者: wufonna    時間: 2011-1-25 15:13

謝謝^0^~~~~~~~~~~~~~~~~~~~~
作者: Hsieh    時間: 2011-1-25 15:53

回復 6# wufonna
  1. Sub nn()
  2. Columns("A").Replace ChrB(32), ""
  3. Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
  4. End Sub
複製代碼
作者: wufonna    時間: 2011-1-25 16:23

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



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