删除多余的空行

747400

请教各位高手，如何删除空行，附件内有详细说明。拜谢！

lsdongjh

1. 
   
2. Sub DelRow()
   
3.     Dim lngRows As Long, arr As Variant
   
4.     Dim lngRow As Long
   
5.    
   
6.     lngRows = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
   
7.     arr = Sheet1.Range("C1:C" & lngRows)
   
8.    
   
9.     For lngRow = UBound(arr) To LBound(arr) Step -1
   
10.         If arr(lngRow, 1) = "" Then Sheet1.Rows(lngRow).Delete
    
11.     Next
    
12. End Sub

复制代码

747400

先感谢您的回复！但是运行时这行代码 For lngRow = UBound(arr) To LBound(arr) Step -1报错。e:\QQ截图20190513145654

747400

tspliu

选中C列 CTRL+G 定位空值 编辑-删除-删除工作表行
如果非要VBA把上面操作录制一遍

747400

多谢tspliu！真正的高手！！

hank2611

Sub 删除Excel工作表空白页()
    '使用方法：激活工作表数据中最后一行数据下的空行，运行代码
    '此操作 不可恢复，谨慎使用，安全起见，可以把save代码注释掉，改为手动保存
    Dim myRow
    myRow = Application.Selection.Rows.Row
    Rows(myRow).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    ActiveWorkbook.Save
End Sub