批处理之家 - Powered by Discuz! Board

标题: [文本处理] 批处理如何删除excel指定行？ [打印本页]

作者: lijiehao 时间: 2014-3-3 18:44 标题: 批处理如何删除excel指定行？

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

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

作者: lijiehao 时间: 2014-3-3 19:11

用vbs基本上可以实现

Dim Ex, Wb, Sht
Set Ex = CreateObject("Excel.Application")
Set Wb = Ex.Workbooks.Open("F:\test.xls")
Set Sht = Wb.Sheets("Sheet1")
'删除第2到第5行
Sht.Rows("2:5").Delete
Ex.ActiveWorkbook.Save
MsgBox "操作完成"
Ex.Quit
复制代码

作者: DAIC 时间: 2014-3-3 20:39

BAT无法直接操作Excel文件

作者: zhanglei1371 时间: 2014-3-3 22:35

用VBA：

Sub DeleteEmptyRows()
Dim LastRow As Long, r As Long
    LastRow = ActiveSheet.UsedRange.Rows.Count
    LastRow = LastRow + ActiveSheet.UsedRange.Row -1
    For r = LastRow To 1 Step -1
        If WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete
    Next r
End Sub
复制代码

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

欢迎光临批处理之家 (http://www.bathome.net/)