Range.CurrentRegion 中的最后一个单元格

Range.CurrentRegion 是一个由空单元围绕的矩形区域。具有 ="" 或'等公式的空白单元格不被视为空白（即使通过 ISBLANK Excel 函数）。

Dim rng As Range, lastCell As Range
Set rng = Range("C3").CurrentRegion       ' or Set rng = Sheet1.UsedRange.CurrentRegion
Set lastCell = rng(rng.Rows.Count, rng.Columns.Count)