Question

excel宏编辑中，显示1004错误。方法Range作用于对象_global失败。求问是怎么回事？

Sub fill_color()
Application.ScreenUpdating = False
For i = 4 To 43
ActiveSheet.Shapes(Range("Heat Map!A" & i).Value).Fill.ForeColor.RGB = Range(Range("Heat Map!C" & i).Value).Interior.color
Next i
Application.ScreenUpdating = True

End Sub

Answer 1

Range("Heat Map!A" & i).Value
这句的表示方法是错误的.应该是
sheets("Heat Map").range("A" & i).value
等号后面的同样也是

追问

刚改了下，还是不行。能加你QQ聊下，帮我解答下吗？谢谢了！

追答

QQ：2724421