vb怎样快速删除Excel中的某些行?

我想快速删除Excel中的某些行,首位置是知道的,比如说,A3,但末位置的行是不知道的,列位置是确定的,比如说,第9列,如果用语句:
sheet.rang(x,y).delete怎样实现呢?末位置是不确定的!
我想过用sheet.row(x).delete来实现,因为通过判断可以知道末位置的行!
我试过,但速度太慢慢了!哪位有好的方法啊,急,急,急!

举报该问题

其他回答

第1个回答 2008-03-20

只能通过sheet.row(x).delete这个方法删除一行！速度慢可能是你的代码计算问题。sheet.rang(x,y).delete这个方法不是删除一行而是删除一个单元格。本回答被提问者采纳

相似回答

如何用VB删除EXCEL里单元格所在的行?答：Dim ws As Excel.Worksheet Set wb = xapp.Workbooks.Open(“Excel文件路径”)Set ws = wb.Worksheets(“工作表索引号”)ws.Activatews.Cells(2, 4).Select ‘这个就是D2单元格，选中 Selection.EntireRow.Delete '选中D2所在的行，删除 wb.Save wb.Close (True)xapp.Quit Set ws = N...

如何用vb删除excel 中的某一行某一列的数据例如第三行第一列.求简易...答：Sub Macro1() Rows("3:3").Delete Shift:=xlUp '删除第3行,下面上移 Columns("C:C").Delete Shift:=xlToLeft '删除C列,右边左移End Sub