excel - 引用作为单元格值的范围

Question

我有两列，一列包含其他单元格的地址（例如 $F$2），另一列包含颜色索引号（例如 15）。

我想为引用的单元格（在另一张纸上）着色。

Sub Colour_World()
Dim Cell As Range
For Each Cell In Range("p2:p3907") 'column with cell values

Worksheets("World").Range(Range(Cell).Value).Interior.ColorIndex = Cell.Offset(0, 5).Value

End Sub

标签： excelvba

Answer 1

Sub Colour_World()
Dim Cell As Range
For Each Cell In Range("p2:p10") 'column with cell values

Worksheets("World").Range(Cell.Value).Interior.ColorIndex = Cell.Offset(0, 5).Value


Next Cell
End Sub