Excel VBA如何将选区扩展至工作表首列 避免使用Select方法

需求说明 #

将指定单元格区域的左边界延伸至A列，保持原有行范围、右列边界不变：

• 原区域为C3:E5时，扩展结果为A3:E5
• 原区域为AE12:AF34时，扩展结果为A12:AF34

原有实现依赖Select方法，存在运行效率低、易受用户操作干扰出错的问题，需优化为不依赖选中操作的稳定实现。

原有问题代码片段：

If Not SearchRange Is Nothing Then
                SearchRange.Offset(0, -1).Select
                Range(Selection.Offset(640, Selection.End(xlToLeft)), Selection.Offset(0, 0)).Select
                                            'What to do here ^^^
End If

优化实现代码 #

直接通过Range对象的行列属性重定义范围，全程不需要操作选中状态：

Dim ExtendedRange As Range
If Not SearchRange Is Nothing Then
    With SearchRange
        ' 新区域左边界固定为A列（列号1），行范围、右边界与原区域完全一致
        Set ExtendedRange = .Worksheet.Range( _
            .Worksheet.Cells(.Row, 1), _
            .Worksheet.Cells(.Row + .Rows.Count - 1, .Column + .Columns.Count - 1) _
        )
    End With
    ' 后续所有操作直接针对ExtendedRange对象编写即可，无需选中区域
    ' 如果确实需要最终选中扩展后的区域，取消下一行注释即可
    ' ExtendedRange.Select
End If

说明：该实现针对连续单元格区域生效，完全匹配需求示例的使用场景。

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