求助，Sheet1A列颜色引用至sheet2B列，且sheet2随着sheet1颜色变化而变化。第一次....

KIKIdoyouloveme · 发表于 2021-1-21 11:03

在线蹲一个大神

KIKIdoyouloveme · 发表于 2021-1-21 11:26

我恐怕只能等你到12点了

shiruiqiang · 发表于 2021-1-21 19:02

新手试了一下。

Sub cs()
Dim i As Integer
For i = 2 To Sheets(1).Range("a65536").End(xlUp).Row
Sheets(2).Range("e" & i).Interior.ColorIndex = Sheets(1).Range("b" & i).Interior.ColorIndex
Next
End Sub

shiruiqiang · 发表于 2021-1-21 19:08

只是一个新手。尝试了，应该用change事件Sheets(2).Range("e" & i).Interior.ColorIndex = Sheets(1).Range("b" & i).Interior.ColorIndex
还有的请别的大侠了

		自动登录	找回密码
密码			免费注册