使用上面的单元格按图标格式化每个单元格

Question

我希望使用图标条件格式来格式化每个单元格，如果它位于上方或下方。

我正在使用以下代码：

Sub FormatCellswIcons()
Dim rCell As Range
Dim rRng As Range
Set rRng = Worksheets("Charts").Range("c5:n5")

    For Each rCell In rRng.Cells
        With rCell.FormatConditions(1).IconCriteria(2)
            .Type = xlConditionValueNumber
            .Value = rCell.Offset(-1, 0).Select
            .Operator = 7
        End With
        With rCell.FormatConditions(1).IconCriteria(3)
            .Type = xlConditionValueNumber
            .Value = rCell.Offset(-1, 0).Select
            .Operator = 7
        End With
    Next rCell 
End Sub

我有两个问题，a）为什么下标超出范围？ b）可以使用.Value范围内的偏移仍然拉入值吗？