VBA中如何扩展选择范围至目标行上下行并正确设置单元格格式？

原代码的核心问题是依赖Select和Activate操作导致选区逻辑混乱，同时错误地基于多行选区执行End(xlToRight)，最终选中的范围不符合需求。

原代码错误点 #

• 执行Range("A2:A4").Select后，Selection是A2:A4多行区域；Range("A3").Activate仅将A3设为活动单元格，但Selection仍保持为A2:A4。
• Range(Selection, Selection.End(xlToRight))中，Selection.End(xlToRight)只会返回选区左上角单元格（A2）的最右非空列位置，最终选中的是A2:A4到A2行最右列的区域，而非基于A3行的目标范围。
• 依赖Select/Activate的代码稳定性差，且执行效率低下。

正确代码实现 #

方案1：包含A列（A2:A4到A3行最右列） #

Sub FormatTargetRange()
    Dim lastCol As Long
    ' 获取第3行（A3所在行）最后一个非空单元格的列号
    lastCol = Cells(3, Columns.Count).End(xlToLeft).Column
    ' 直接操作目标区域，无需选中
    With Range(Cells(2, 1), Cells(4, lastCol))
        .Interior.ColorIndex = 1 ' 设置背景为黑色
        .Font.ColorIndex = 2 ' 设置字体为白色
    End With
End Sub

方案2：排除A列（仅A3右侧区域，即B2:B4到A3行最右列） #

若需求是仅选中A3右侧（不含A列）的对应区域，可修改列起始值为2：

Sub FormatTargetRange()
    Dim lastCol As Long
    lastCol = Cells(3, Columns.Count).End(xlToLeft).Column
    With Range(Cells(2, 2), Cells(4, lastCol))
        .Interior.ColorIndex = 1
        .Font.ColorIndex = 2
    End With
End Sub

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