如何用更高效的VBA方法获取包含分散命名区域的矩形单元格区域？

有更简洁高效的实现方式，无需手动遍历每个单元格，利用Excel内置的Application.Min和Application.Max函数直接获取目标区域的首末行、首末列，代码更简洁且执行效率更高（调用Excel内置计算逻辑，比VBA循环更快）。

代码示例 #

Dim firstRow As Long, lastRow As Long
Dim firstCol As Long, lastCol As Long
Dim rngRectangle As Range

' 获取包围矩形的首末行、首末列
firstRow = Application.Min(rngPM.Row)
lastRow = Application.Max(rngPM.Row)
firstCol = Application.Min(rngPM.Column)
lastCol = Application.Max(rngPM.Column)

' 构造包围矩形区域
Set rngRectangle = rngPM.Parent.Range(rngPM.Parent.Cells(firstRow, firstCol), _
                                      rngPM.Parent.Cells(lastRow, lastCol))

说明 #

• 该方法直接利用Excel内置函数计算区域的边界行/列，避免了VBA循环遍历每个单元格的开销
• 对于包含大量单元格的非连续区域，这种方式的效率优势会更明显

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