VBA清空工作表后UsedRange超出预期范围的技术问询

兄弟，你踩了Excel VBA里一个经典的坑——UsedRange可不是只看单元格有没有内容的！它的判定范围包括：

• 带格式设置（比如字体、填充色）的单元格
• 有条件格式、数据验证规则的单元格
• 哪怕曾经编辑过后来清空内容的单元格

你第一次删完数据后，第4-6行大概率还残留了这些"隐形属性"，所以Excel依然把它们算在UsedRange里，导致你看到的范围是A1:NQY6，而不是预期的表头3行。至于你写的遍历代码，只检查了单元格是否为空，这些格式、验证规则根本不会被cl = Empty检测到，所以遍历没弹出提示，但UsedRange还是没收缩。

给你三个实用方案，按需选择：

1. 先强制重置UsedRange #

在判断行数之前，让Excel重新扫一遍工作表，更新UsedRange的真实范围，这样判断就准了：

Set ws = ThisWorkbook.Worksheets("Sheet1")
' 关键一步：强制Excel重新计算UsedRange
ws.UsedRange
With ws
    If .UsedRange.Rows.Count = 3 Then Exit Sub
    .Range(.Cells(4, 1), .Cells(.UsedRange.Rows.Count, .UsedRange.Columns.Count)).Delete
End With

2. 直接清除而非删除行（更稳定） #

如果你的目标只是清空数据、格式和验证规则，没必要删除行，直接用Clear系列方法更稳妥，还不会碰表头：

Set ws = ThisWorkbook.Worksheets("Sheet1")
With ws
    ' 从第4行开始，清除到工作表末尾的所有内容、格式、验证规则
    .Range(.Cells(4, 1), .Cells(.Rows.Count, .Columns.Count)).Clear
    ' 要是想拆分操作也可以：
    '.Range(.Cells(4, 1), .Cells(.Rows.Count, .Columns.Count)).ClearContents ' 清内容
    '.Range(.Cells(4, 1), .Cells(.Rows.Count, .Columns.Count)).ClearFormats ' 清格式
    '.Range(.Cells(4, 1), .Cells(.Rows.Count, .Columns.Count)).ClearValidation ' 清验证
End With

这种方式完全不依赖UsedRange，从根源上避免了判断错误的问题。

3. 用LastCell精准定位最后一行 #

如果非要删除行，结合SpecialCells(xlCellTypeLastCell)来拿真实的最后一行，再配合重置UsedRange：

Set ws = ThisWorkbook.Worksheets("Sheet1")
ws.UsedRange ' 先重置
With ws
    Dim lastRow As Long
    lastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
    If lastRow <= 3 Then Exit Sub
    .Range(.Cells(4, 1), .Cells(lastRow, .UsedRange.Columns.Count)).Delete
End With

Excel的UsedRange很容易"膨胀"，尤其是频繁改格式、删内容之后。平时遇到这类问题，先调用ws.UsedRange强制重置，基本能解决大部分判断不准的情况。

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