VBA获取数据范围，给单元格内容值是实际的行添加颜色

以下是实现该功能的VBA代码：

Sub HighlightRows()
    Dim dataRange As Range
    Dim cell As Range
    
    '获取数据范围
    Set dataRange = Range("A1").CurrentRegion
    
    '遍历数据范围中的每个单元格
    For Each cell In dataRange.Cells
        '如果单元格内容等于实际的行号，则添加颜色
        If cell.Value = cell.Row - dataRange.Row + 1 Then
            cell.Interior.Color = RGB(255, 255, 0)
        End If
    Next cell
End Sub

该代码首先使用`Range("A1").CurrentRegion`获取数据范围，然后遍历数据范围中的每个单元格。对于每个单元格，如果其内容等于实际的行号（即该单元格所在行号减去数据范围的起始行号加1），则为该单元格添加颜色。颜色可以通过修改`RGB(255, 255, 0)`中的数值来改变。