在网上搜索了一下,发现Excel实现该功能的思路都是通过单元格的条件格式来进行填色处理,现在提供另外一种VBA代码的方法(打开excel文件,按alt+f11快捷键进入代码区,将下列代码复制到你所需要的工作表代码区):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim colstr As String
    With Target
        colstr = Mid(.Address, 2, InStr(2, .Address, "$") - 2)
        Range(ActiveCell.Address & "," & colstr & ":" & colstr & "," & .Row & ":" & .Row).Select
    End With
End Sub