VBA第十九期 VBA给筛选数据标记不同颜色

工作中我们需要处理大量数据表格，但同时也会发现数据越多，就越眼花缭乱，为方便工作和减轻视力疲劳，我们有时候就采用放大字体和标记单元格不同颜色，来增加数据表格的可视度和直观度，下面这个实例是通过标记单元格红色和绿色来表示最近处理了的数据。

ii = 1

iii = 1

lastcl = Sheets("表1").Range("a4").CurrentRegion.Columns.Count

For i = 1 To lastrw

 If Left(Sheets("汇总").Range("a" & i), 1) = "H" Then

' 下行的6代表【表1】的第几行

  For rw = 2 To 6

   For cl = 1 To lastcl

    If Sheets("表1").Cells(rw, cl) = Sheets("汇总").Range("a" & i) Then

      If ii <= 5 Then Sheets("表1").Cells(rw, cl).Interior.ColorIndex = 3

    End If

   Next

  Next

 ii = ii + 1

 End If

 If Left(Sheets("汇总").Range("a" & i), 1) = "G" Then

  For rw = 2 To 6

   For cl = 1 To lastcl

    If Sheets("表1").Cells(rw, cl) = Sheets("汇总").Range("a" & i) Then

     If iii <= 10 Then Sheets("表1").Cells(rw, cl).Interior.ColorIndex = 4

    

    End If

   Next

  Next

  iii = iii + 1

 End If

Next

上边程序中的Sheets("表1").Cells(rw, cl).Interior.ColorIndex = 3语句是改变单元格颜色，而不是字体颜色。