excel表格怎么筛选数据改色

1.Excel大神进

'已测试通过

'插入一个模块，添加如下代码：

Public Hah As Integer '行号

Public Ysz As Integer '颜色值

'在工作表事件中添加如下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next '开启错误处理

Rows(Hah).Interior.ColorIndex = Ysz '将前一次操作行的颜色恢复

X = ActiveCell.Row '获取当前操作单元格行号

Hah = X '将当前操作单元格行号传递给全局

Ysz = Rows(X).Interior.ColorIndex '将当前操作单元格颜色传递给全局

Rows(X).Interior.ColorIndex = 36 '为当前单元格所在的行设置成黄色

End Sub