[分享] Excel宏代碼:刪除使用區域內的空白行

2005-06-27 00:07:00
曉月清風-Office交流網
原創
3370
Sub DeleteEmptyRows()
    lastrow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
    Application.ScreenUpdating = False
    For r = lastrow To 1 Step -1
        If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
    Next r
    Application.ScreenUpdating = True
End Sub
圖1:含有空白行
TqY7wVwz.jpg
圖2:運行宏刪除空白行後

 pvYNjmXQ.jpg


曉月清風
設計思路倒還不錯

douyi
這箇問題用自動篩選就可以很容易解決的啊

曉月清風
選取數據區,“數據”-“自動篩選”-“選取空白”-手動刪除掉空白行;然後再“數據”-“自動篩選”顯示刪除空行後的結果

xinghaifuyun
謝謝斑竹的共享,我還真要用呢,太謝謝瞭?還有沒有其他類似的小程序呢?

心可以清
用定位"空值"也應該可以的.説到小程序的話,可能先録箇看看效果,嘿嘿.

(VBA-相關文章技巧鏈接):
Access 2007 中的用戶級安全
快捷鍵大全
Excel 97/VBA技術講座之六
EXCEL技巧53例三
分享