Excel VBA如何删除CurrentRegion内指定行而非整行？

原代码直接执行Delete会删除整行，核心原因是未限定仅操作筛选后的可见区域，且未明确锁定CurrentRegion的列范围。以下是修正后的代码：

' 执行筛选
Range("A3").AutoFilter Field:=4, Criteria1:="True"
' 仅删除CurrentRegion内筛选后的可见行（跳过表头）
Range("A3").CurrentRegion.Offset(1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
' 关闭自动筛选
Range("A3").AutoFilter

关键说明： #

• 原代码未使用SpecialCells(xlCellTypeVisible)，导致操作对象包含筛选后的隐藏行，且Excel默认对跨多列的行区域执行整行删除；
• 加入SpecialCells(xlCellTypeVisible)后，仅针对筛选出的可见单元格进行删除，且限定在CurrentRegion范围内，只会删除该区域内的对应单元格并向上填充，不会影响区域外的列内容；
• 最后关闭自动筛选是为了恢复工作表的正常显示状态。

内容的提问来源于stack exchange，提问作者HunterZ