写 Excel VBA 时，“取到数据区域”这一步就有两个常见属性：CurrentRegion 和 UsedRange。它们看起来都能返回一片区域，但一个是“连续的表”、一个是“这张表用过的最大范围”，混用会出现“少几十行”或“多出一万行空行”的经典事故。

一、定义上的区别

• Range.CurrentRegion：返回包含指定单元格的连续数据块——从该单元格向四个方向扩展，遇到整行空或整列空就停止。判断依据是单元格是否有值/是否为空字符串（"" 公式结果也算空）。它反映的是“这张表长什么样”，是相对语义。
• Worksheet.UsedRange：返回该工作表上曾经使用过的最小矩形（左上角是第一个用过的单元格，通常不是 A1）。只要某个单元格有过值、公式或格式（底色、边框、数字格式、列宽调整到某列），就会被计入。它反映的是“Excel 记录了哪些单元格被碰过”，是绝对语义。

Sub Demo()
    Dim ws As Worksheet, rng As Range
    Set ws = ActiveSheet

    Set rng = ws.Range("A1").CurrentRegion
    Debug.Print "CurrentRegion: " & rng.Address & _
                " rows=" & rng.Rows.Count & " cols=" & rng.Columns.Count

    Set rng = ws.UsedRange
    Debug.Print "UsedRange: " & rng.Address & _
                " firstRow=" & rng.Row & " lastRow=" & rng.Row + rng.Rows.Count - 1
End Sub

二、三种典型差异场景

1. 表中间有空行 → CurrentRegion 会截断。如果第 10 行整行为空，从 A1 出发的 CurrentRegion 只到第 9 行。用 ws.Range("A1").CurrentRegion 批量处理就漏掉后半部分数据。这时必须用 UsedRange（或按列找最后非空行）。

2. 清掉了内容但设过格式 → UsedRange 偏大。常见于手工给整列加了底色、或粘贴时带格式：UsedRange 会一路延伸到 1048576 行或大量空行，导致 For i = 1 To ws.UsedRange.Rows.Count 循环极其缓慢甚至假死。判断方法：查看状态栏“计数”与实际数据行是否一致。

3. 数据不从 A1 开始 → UsedRange 的 Row 不是 1。很多人直接写 ws.UsedRange.Rows.Count 当最后一行号，这是错的，正确写法是 ws.UsedRange.Row + ws.UsedRange.Rows.Count - 1。这是 VBA 新手 bug 排行榜第一名。

三、求“最后一行/最后一列”的可靠写法

按需要选择：

' ① 指定列向上找（快、常用，但要求该列无空单元格）
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

' ② Find 反向查找（可跨空单元格，比遍历快得多）
Dim r As Range
Set r = ws.Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
If Not r Is Nothing Then lastRow = r.Row

' ③ SpecialCells（受格式影响，与 UsedRange 同源）
On Error Resume Next
lastRow = ws.Cells.SpecialCells(xlCellTypeLastCell).Row
On Error GoTo 0

' ④ 超级表（最可靠，Excel 2003+ 的 ListObject）
Dim lo As ListObject
Set lo = ws.ListObjects("tblSales")
lastRow = lo.Range.Rows.Count + lo.HeaderRowRange.Row - 1

说明：Cells(Rows.Count, "A").End(xlUp) 只找 A 列最后一个非空，若 A 列中途有空白但 B 列有值就会漏；Find 反向查找是整表定位性能与准确性最好的通用方案；SpecialCells(xlCellTypeLastCell) 与 UsedRange 一样会被格式带偏；ListObject 是数据表的最优解，因为它由 Excel 维护边界，自动扩展。

四、性能实测层面的差异

UsedRange 是属性访问，但读取它的 Address、Rows.Count 会触发 Excel 计算脏区；在几万行且带大量格式的工作表上，反复访问 ws.UsedRange 会明显拖慢循环。规范做法是一次取值到变量：

Dim ur As Range, lastRow As Long
Set ur = ws.UsedRange          ' 只取一次
lastRow = ur.Row + ur.Rows.Count - 1

另外两个高频性能坑：Application.ScreenUpdating = False、Calculation = xlManual（用完恢复）；跨表引用时务必写全 ThisWorkbook.Worksheets("Sheet1").UsedRange，因为 UsedRange 不带表名时默认作用于 ActiveSheet，在多工作簿场景下会取错表（尤其在其它工作簿被 Activate 之后）。

五、压缩 UsedRange 的方法

UsedRange 偏大时无法靠删除内容恢复，因为格式仍在。处理方式：

1. 选中数据下方所有行（Ctrl+Shift+↓）→ 右键 → 删除（Delete Rows），而不是只 Clear Contents；
2. 右侧空白列同样删除；
3. 保存文件（必须保存后 UsedRange 才会重算）；
4. 仍不生效时用 ws.Cells.ClearFormats 清掉超界区域的格式，或把内容复制粘贴到新建表并删除旧表。

六、常见问题 FAQ

问：CurrentRegion 和 UsedRange 该用哪个？
答：处理“用户点在一个表里、要把整张表取出来”的场景用 CurrentRegion（比如录制宏生成的代码）；处理“整张工作表的数据范围”用 Find 反向查找或 ListObject。UsedRange 更适合判断“这张表是否真的被用过”。

问：公式返回空字符串 "" 会不会被算进去？
答：会被算进 UsedRange（单元格有内容即公式），但 CurrentRegion 视其为空，因此可能截断——这是最隐蔽的一类差异，遇到“数据明明在，宏却只处理一半”先查是不是有 "" 列。

问：隐藏的行列会不会被计入？
答：UsedRange 与 CurrentRegion 都包含隐藏行列。要只处理可见区域，用 rng.SpecialCells(xlCellTypeVisible)，或筛选后配合 AutoFilter.Range。

问：VBA 里怎么给数据源动态命名区域？
答：用 ListObject 转成表后，引用名会自动跟随扩展，避免 OFFSET 易失函数带来的重算开销。

记忆方式：CurrentRegion 认“空行空列”、UsedRange 认“是否碰过（含格式）”。要准确的表边界，优先超级表；要全表兜底，用 Find 反向查找。

• VBA
• Excel
• 办公自动化