这个小宏将在 Sheet1 的 A 列中找到地址并为 Sheet2 中的单元格着色黄色:
Sub dural()
Dim r As Range
For Each r In Sheets("Sheet1").Columns(1).SpecialCells(2)
Sheets("Sheet2").Range(r.Value).Interior.ColorIndex = 27
Next r
End Sub
在 Sheet1 :
Sheet2 中的结果:
注意:
在本演示中,我们假设 Sheet1 的 A 列中的值为常量。 (如果它们是公式,则需要更改SpecialCells()。)