excel - 单元格颜色和值匹配功能

Question

我希望在 VBA 中同时匹配单元格值和颜色。在一列中，如果单元格值在前 10%（命名为 A），那么它会改变颜色，在第二列中我放置随机值，如果相同的数字（命名为 B）来自第 2 列，则与前 10% 的单元格匹配(A) 然后这个单元格 (B) 使用与单元格 (A) 相同的颜色。

Sub ColorChange()
Dim i As Long, r1 As Range, r2 As Range

For i = 14 To 23
  Set r1 = Range("E" & i)
  Set r2 = Range("G" & i)
  If Percentile(Range("E" & i)) > 0.1 Then r1.Interior.ColorIndex = 6
  If r2.Value = 0 Then r2.Interior.ColorIndex = 6
Next i
End Sub