[已解决]求助：运行宏遇到“运行错误9 下标越界”

三日和尚

  今天编辑了一个删除筛选出来的行是，遇到“运行错误9 下标越界”，求高手帮忙 cGlqD4VK.rar (7.07 KB, 下载次数: 34)

2010-9-18 15:13 上传

点击文件名下载附件
求助：运行宏遇到“运行错误9 下标越界” 宏，谢谢

最佳答案

月排行榜 / 总排行榜

爱疯

2010-9-18 17:13

下标越界的原因有两个：

1. 3处,keke换成main
2. rows("i:i")换成rows(i+32769)

最好改写为：

Sub aa()
    Dim r As Long, i As Long
   
    r = Range("A1").End(xlDown).Row
    For i = r To 1 Step -1
        If Cells(i, 2) > 16 Then
            If Cells(i, 3) > 0.21 Then
                If Cells(i, 4) > 0.28 Then
                    Rows(i).Delete
                End If
            End If
        End If
    Next i
End Sub

跳转到最佳答案楼层

杰

工作簿里没有一个叫keke的工作表

Sheets("keke")

三日和尚

DevXzcej.rar (7.06 KB, 下载次数: 2)

2010-9-18 15:35 上传

点击文件名下载附件
求助：运行宏遇到“运行错误9 下标越界”
不好意思，写错文件名了，我该回来还是不行。。。。。

nichangdong

Sheets("keke")你工作薄中没有这样名称的工作表呀

爱疯

下标越界的原因有两个：

1. 3处,keke换成main
2. rows("i:i")换成rows(i+32769)

最好改写为：

Sub aa()
    Dim r As Long, i As Long
   
    r = Range("A1").End(xlDown).Row
    For i = r To 1 Step -1
        If Cells(i, 2) > 16 Then
            If Cells(i, 3) > 0.21 Then
                If Cells(i, 4) > 0.28 Then
                    Rows(i).Delete
                End If
            End If
        End If
    Next i
End Sub

三日和尚

多谢高手指点。。。。

吕?布

楼主如果觉得问题解决了，可以给你满意的答案评最佳，这次代评了