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

相关文章推荐

豁达的哑铃 · 与'ws://localhost:8000/ ...· 1 周前 ·

气宇轩昂的蜡烛 · zpl打印字符动态换行 - CSDN文库· 3 月前 ·

机灵的香槟 · openpyxl使用教程（简明版）· 11 月前 ·

高大的电影票 · selenium webdriver - ...· 11 月前 ·

好帅的签字笔 · Scratch3.0二次开发｜补充-2：解决 ...· 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

推荐文章

豁达的哑铃 · 与'ws://localhost:8000/‘的WebSocket连接失败: WebSocket握手期间出错:意外响应代码: 403_WebSocket连接失败: WebSocket握手期间出错:意外

1 周前

气宇轩昂的蜡烛 · zpl打印字符动态换行 - CSDN文库

3 月前

机灵的香槟 · openpyxl使用教程（简明版）

11 月前

高大的电影票 · selenium webdriver - Error Encountered: Chrome Binary Not Found When Running Auto-GPT in Google Cola

11 月前

好帅的签字笔 · Scratch3.0二次开发｜补充-2：解决windows上scratch-blocks构建失败 - 知乎

1 年前

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

2 个回答