Excel VBA实现高亮活动单元格所在行及指定F列需求

以下是调整后的完整代码，已按需求取消活动列高亮，改为固定高亮F列，同时修正了原代码里的拼写错误：

Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 清除所有单元格的背景色
    Cells.Interior.ColorIndex = xlColorIndexNone
    
    ' 高亮当前选中单元格所在的整行
    Target.EntireRow.Interior.ColorIndex = 88
    ' 高亮指定的F列
    Columns("F").Interior.ColorIndex = 89
    ' 保持选中单元格本身无背景色
    Target.Interior.ColorIndex = xlColorIndexNone
End Sub

关键修改说明： #

• 删掉了原代码中Target.EntireColumn.Interior.ColorIndex = 89这一行，取消了活动单元格所在列的高亮
• 新增Columns("F").Interior.ColorIndex = 89，实现固定高亮F列
• 修正了原代码里的拼写错误：x1ColorIndexNone改为xlColorIndexNone（注意是字母l而非数字1，原写法会导致运行报错）

代码逻辑：每次单元格选中状态变化时，先重置所有单元格背景色，再高亮当前选中行和F列，最后让选中的单元格本身保持无背景色，避免被覆盖。

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