zoukankan      html  css  js  c++  java
  • 快速删除满足某些特定条件的行

    思路:利用Range.SpecialCells()方法定位到满足特定条件的range,然后删除这些range所在的行.

    代码如下:

    '删除特定的行的代码
    Sub Rows_To_delete()
    
        Dim Rng1 As Range, Rng2 As Range
        Set Rng1 = Range("D15:D23")                                     'Rng1: 可能要删除行的区域,一般选单独的一列
        
        
        '*********************
        '注意:使用on error resume next的原因是
        'SpecialCells可能不返回range(当没有满足条件的range时)
        '此时会报1004的runtime error,故需要捕获和处理该error
        '*********************
        On Error Resume Next
        Set Rng2 = Rng1.SpecialCells(xlCellTypeConstants, 2)        'Rng2:  Rng1区域中,满足特定条件的区域(如本例中是 值为常量文本的区域)
        If Err.Number > 0 Then
            Debug.Print "err.num = " & Err.Number
            Debug.Print Err.Description
        Else
            Rng2.EntireRow.Delete                                            '删除这些区域所在的行
        End If
        On Error GoTo 0
    
    End Sub
    

      

  • 相关阅读:
    Linux安装和配置java
    动态代理:JDK动态代理和CGLIB代理的区别
    常用算法复习
    Linux重新学习
    oracle复杂查询是sql
    oracle触发器
    oracle存储过程
    oracle数据库操作
    java知识回顾
    Spring AOP简述
  • 原文地址:https://www.cnblogs.com/bmrs/p/7651119.html
Copyright © 2011-2022 走看看