返回列表 上一主題 發帖

選擇性空白列,如何刪除

errol.sun

帖子
4 
主題
2 
精華
0 
積分
40 
點名
0  
作業系統
XP 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
註冊時間
2011-1-19 
最後登錄
2012-3-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-1-21 22:16 | 只看該作者

選擇性空白列,如何刪除

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

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

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

           附件一為EXCEL不規則空白列

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

           謝謝




收藏 分享

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

errol.sun

帖子
4 
主題
2 
精華
0 
積分
40 
點名
0  
作業系統
XP 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
註冊時間
2011-1-19 
最後登錄
2012-3-26 
3#
發表於 2011-1-21 23:48 | 只看該作者
感謝版主得解答

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

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

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

TOP

wufonna

帖子
161 
主題
26 
精華
0 
積分
187 
點名
0  
作業系統
xp 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
TW 
註冊時間
2011-1-2 
最後登錄
2022-2-16 
4#
發表於 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

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2011-1-25 14:54 | 只看該作者
回復 4# wufonna


    你的方法為何?
資料是否確定為空白?
建議上傳檔案
學海無涯_不恥下問

TOP

wufonna

帖子
161 
主題
26 
精華
0 
積分
187 
點名
0  
作業系統
xp 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
TW 
註冊時間
2011-1-2 
最後登錄
2022-2-16 
6#
發表於 2011-1-25 15:13 | 只看該作者
謝謝^0^~~~~~~~~~~~~~~~~~~~~

text1.rar (14.05 KB)

text1.rar (18.72 KB)

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
7#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

wufonna

帖子
161 
主題
26 
精華
0 
積分
187 
點名
0  
作業系統
xp 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
TW 
註冊時間
2011-1-2 
最後登錄
2022-2-16 
8#
發表於 2011-1-25 16:23 | 只看該作者
謝謝版大，提供這討論版給我們學習，
受益良多，謝謝

TOP

        靜思自在 : 不要隨心所欲，要隨心教育自己。
返回列表 上一主題