删除已筛选的可见行，运行时错误1004:不能对重叠选择使用该命令。

相关文章推荐

文武双全的铁链 · How to Verify the ...· 3 月前 ·

独立的椰子 · 南通市海门区人民政府· 5 月前 ·

开心的刺猬 · 礼来（LLY.US）启动GLP-1R/GIP ...· 6 月前 ·

高大的蟠桃 · 侯小强：优秀的内容从业者一年应读不少于100 ...· 11 月前 ·

博学的乌冬面 · 首页-楚雄市人民政府· 1 年前 ·

腾讯云

备案控制台

开发者社区

TVP

文章/答案/技术大牛

写文章

删除已筛选的可见行，运行时错误1004:不能对重叠选择使用该命令。

Sub Macro2()
    Dim rng As Range: Set rng = ActiveSheet.Range("A1:Q6880")
    rng.AutoFilter Field:=8, Criteria1:="0"
    rng.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End Sub

Option Explicit
Sub Macro2()
    Dim ws As Worksheet: Set ws = ActiveSheet ' improve!
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    Dim rng As Range: Set rng = ws.Range("A1:Q6880")
    ' If your range is contiguous (no empty rows or columns):
    'Dim rng As Range: Set rng = ws.Range("A1").CurrentRegion
    Dim fcrg As Range: Set fcrg = rng.Columns(8) ' Filter Column Range
    ' Filter Column Data Range (no headers)
    Dim fcdrg As Range: Set fcdrg = fcrg.Resize(fcrg.Rows.Count - 1).Offset(1)
    fcrg.AutoFilter Field:=1, Criteria1:="0"
    Dim vfcdrg As Range ' Visible Filter Column Data Range
    On Error Resume Next
        Set vfcdrg = fcdrg.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    ws.AutoFilterMode = False
    If vfcdrg Is Nothing Then Exit Sub ' no filtered values
    vfcdrg.EntireRow.Delete

推荐文章

文武双全的铁链 · How to Verify the Validity of a JSON String in Go

3 月前

独立的椰子 · 南通市海门区人民政府

5 月前

开心的刺猬 · 礼来（LLY.US）启动GLP-1R/GIPR双重激动剂 vs 度拉糖肽大型心血管结局III期研究_手机新浪网

6 月前

高大的蟠桃 · 侯小强：优秀的内容从业者一年应读不少于100本小说_行业_市场_领导者

11 月前

博学的乌冬面 · 首页-楚雄市人民政府

1 年前

删除已筛选的可见行，运行时错误1004:不能对重叠选择使用该命令。

2 个回答