代码之家  ›  专栏  ›  技术社区  ›  DumbExcelGuy

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

  •  1
  • DumbExcelGuy  · 技术社区  · 8 年前

    我需要一些关于如何开发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
    

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

    使用这段当前代码,我收到了一个运行时错误424和一个所需的对象,尝试了一些故障排除技术,以我认为可以修复它的方式编辑代码,但没有效果。

    一如既往地感谢你。

    1 回复  |  直到 8 年前
        1
  •  1
  •   n8.    8 年前

    请改用此选项:

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

    此外,正如评论中所建议的:

    For I = FinalCell to 7 Step -1
    
    推荐文章