Excel 中，如何实现选中一个单元格，另外若干个单元格背景色变化

Question

如果要用VBA，要怎么写呢？比如，点A2单元格，D3，D6和D8三个格变成红色背景？

Answer 1

以下代码是将选择单元格和其它与之相同的单元格颜色设置为红色背景
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
If Target <> "" Then
Cells.Interior.ColorIndex = 0
Dim rg As Range
For Each rg In UsedRange
If rg = Target.Value Then
rg.Interior.ColorIndex = 3
End If
Next
Else: Exit Sub: End If
Else: Exit Sub: End If
End Sub

如果只是满足你题意要求，可以使用下面这段
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
Cells.Interior.ColorIndex = 0
If Target = [a2] Then
[d3].Interior.ColorIndex = 3
[d6].Interior.ColorIndex = 3
[d8].Interior.ColorIndex = 3
Else: Exit Sub: End If
Else: Exit Sub: End If
End Sub

Answer 2

直接用录制宏，操作一遍，保存

Answer 3

OFFICE， 这么深奥，我还是路过吧 - -！