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

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

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

Deleting Rows if a Cell Starts with a Predefined Value

excel

vba

delete-row