Question

我需要一些关于如何开发excel VBA以消除其中包含以“27”值开头的单元格的行的想法。

Sub filtersearch()

Dim filtersheet As Worksheet
Dim I As Integer
Dim FinalCell As Long

Set filtersheet = Sheet3
FinalCell = filtersheet.Cells(Rows.Count, 1).End(xlUp).Row

filtersheet.Select
    For I = 7 To FinalCell
    If Left(someRow.Cells(8).Value, 2) = "27" Then
    Range(Cells(I, 2), Cells(I, 18)).Delete Shift:=xlUp
    End If
    Next I

End Sub

基本上，如果第8列的单元格值以“27”开头，我希望整行从 B 列中删除 R 。

使用当前的代码，我收到运行时错误424和一个需要的对象，尝试了一些故障排除技术，通过我认为可以修复它的方式编辑代码，但无济于事。

一如既往地谢谢。

Answer 1

请改用：

If Left(Cells(I, 8).Value, 2) = "27" Then

而且，正如评论中所建议的那样：

For I = FinalCell to 7 Step -1

如果单元格以预定义值开始，则删除行

1 个答案: