51问答网 > Excel如何在一个工作簿（包含多个工作表）中对被公式引用过的数据进行标记颜色（如蓝色）

Excel如何在一个工作簿（包含多个工作表）中对被公式引用过的数据进行标记颜色（如蓝色）

2025-03-22 23:08:31

推荐回答（1个）

回答1：

1、右键单击工作表标签，选择“查看代码”，将下面的代码粘贴到光标所在的代码窗口：

Sub 显示从属单元格()

Dim Rng As Range, o As Range

On Error Resume Next

For Each Rng In Me.UsedRange.SpecialCells(xlCellTypeFormulas, 23)

If Err = 0 Then

If o Is Nothing Then

Set o = Rng.DirectPrecedents

Else

Set o = Union(o, Rng.DirectPrecedents)

End If

Else

Err.Clear

End If

Next

'下面两行代码属两种效果，可选其中一种

o.Select '选定单元格

o.Interior.ColorIndex = 6 '颜色号 3 - 56，可自行修改

End Sub
复制代码

2、返回工作表。按Alt+F8，选择宏“显示从属单元格”，然后点击“执行”按钮。