如何修改VBA代码实现滚动时高亮活动单元格所在列的第2行单元格？

你可以修改VBA代码，定位到活动单元格所在列的第2行单元格并单独设置高亮，具体代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 清除所有单元格的填充色，避免高亮残留
    Cells.Interior.ColorIndex = 0
    ' 定位到当前选中单元格所在列的第2行，设置填充色（ColorIndex=8为蓝色，可自行调整）
    Cells(2, Target.Column).Interior.ColorIndex = 8
End Sub

代码说明： #

• Cells.Interior.ColorIndex = 0：重置所有单元格的背景色，确保每次选中新单元格时旧高亮被清除
• Cells(2, Target.Column)：Target.Column获取当前选中单元格的列号，Cells(2, 列号)精准指向该列的第2行单元格
• ColorIndex=8：这是Excel内置的蓝色颜色索引，你可以根据需求替换为其他索引值（比如3对应红色、6对应黄色）

若选中多个单元格，Target.Column会自动取第一个单元格的列号，依然符合需求逻辑。

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