发布网友
共1个回答
热心网友
在sheet1的底部标签名上点鼠标右键,选“查看代码”,把下面代码粘贴进去就行了。
Dim c
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If c = "" Then c = Target.Address: Exit Sub
Sheets("sheet2").Range(c).Interior.ColorIndex = Range(c).Interior.ColorIndex
c = Target.Address
End Sub