Excel VBA 实现当前行高亮显示的代码

在 Excel 数据处理中，为了更直观地查看和操作数据，常常需要对当前行进行高亮显示。通过 Excel VBA 编程，可以轻松实现这一功能。以下是详细的代码实现步骤。

打开 Excel 并按下“Alt + F11”组合键，进入 VBA 编辑环境。在左侧的“工程资源管理器”中，双击需要添加代码的工作表对象，例如“Sheet1”。

然后，在代码窗口中输入以下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng As Range
    Set rng = Target.EntireRow
    Cells.Interior.ColorIndex = 0 '清除所有行的颜色
    rng.Interior.Color = vbYellow '将当前行设置为黄色高亮
End Sub

这段代码使用了Worksheet_SelectionChange事件，当工作表中的选择发生改变时，该事件会被触发。

在代码中，首先定义了一个范围变量rng，并将其设置为当前选中单元格所在的整行。然后，使用Cells.Interior.ColorIndex = 0语句清除所有行的颜色，以确保每次只有当前行被高亮显示。最后，使用rng.Interior.Color = vbYellow将当前行的内部颜色设置为黄色。

为了使代码生效，需要保存工作簿并关闭 VBA 编辑窗口。然后，在 Excel 工作表中进行单元格选择操作，就可以看到当前行被高亮显示为黄色了。

通过这种方式，用户可以更清晰地关注当前正在操作的行，提高数据处理的效率和准确性。如果想要更改高亮显示的颜色，只需将vbYellow修改为其他颜色常量，如vbGreen（绿色）、vbRed（红色）等。

还可以根据实际需求对代码进行进一步的扩展和优化。例如，如果只想在特定的区域内实现当前行高亮显示，可以通过修改Target的范围来实现。

利用 Excel VBA 实现当前行高亮显示是一种非常实用的技巧，能够为日常的 Excel 操作带来很大的便利。