批处理如何删除excel指定行？

lijiehao

单位一个报表系统里面导出来的是一个excel，如何实现删除指定行？该行是空的。

如下图，将1、2、7、8、9、10、11、13、14等行删掉。

lijiehao

用vbs基本上可以实现

1. Dim Ex, Wb, Sht
   
2. Set Ex = CreateObject("Excel.Application")
   
3. Set Wb = Ex.Workbooks.Open("F:\test.xls")
   
4. Set Sht = Wb.Sheets("Sheet1")
   
5. '删除第2到第5行
   
6. Sht.Rows("2:5").Delete
   
7. Ex.ActiveWorkbook.Save
   
8. MsgBox "操作完成"
   
9. Ex.Quit

复制代码

DAIC

BAT无法直接操作Excel文件

zhanglei1371

用VBA：

1. 
   
2. Sub DeleteEmptyRows()
   
3. Dim LastRow As Long, r As Long
   
4.     LastRow = ActiveSheet.UsedRange.Rows.Count
   
5.     LastRow = LastRow + ActiveSheet.UsedRange.Row -1
   
6.     For r = LastRow To 1 Step -1
   
7.         If WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete
   
8.     Next r
   
9. End Sub

复制代码

参考：http://www.jb51.net/office/excel/62172.html