Question

用VB删除EXCEL中不符合条件的整行数据代码

代码如下，但是删除整行（xlsWorkboo.Rows("i:").Delete Shift:=xlUp）这里出错，求解。
Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.Worksheet
Private Sub Command1_Click()Dim a(4, 2600) As LongDim i, j, k As LongSet xlsApp = CreateObject("Excel.Application")Set xlsWorkbook = xlsApp.Workbooks.Open("D:\my.xls") j = 1For i = 2 To 2599 k = i + 1 If a(3, i) <= 9.9 And j > 3 Then xlsWorkboo.Rows("i:").Delete Shift:=xlUp '删除不符合条件的整行，下行上移 j = j + 1 If a(4, i) <> a(4, k) Then j = 0Next

i End Sub

Answer 1

xlsWorkboo.Rows("i:").Delete
改成下面的试试。
xlsWorkbook.Rows(i).Delete

追问

还是不行，错误

追答

改完哪行代码报错？