软件:excel
版本:2007
写了一个vba 不知道想法哪边错误
在test工作表的A2:A57会有56个颜色
要在B2:B57传回相对颜色的数量
写了个vba 不知道那边想法有错....
烦请大大帮忙除错 感谢
Sub test()
Dim cell As Object
Dim count As Integer
Set rng1 = Sheets("abc").Range("A1:E24")
Sheets("test").Select
For Each cell In rng1
For i = 1 To 56
If Range("A" & i + 1).Interior.Color = cell.Interior.Color Then count =
count + 1
Range("B" & i + 1) = count
count = 0
Next
Next
End Sub

1.for i=1 to 56写在for each的外圈range("B" & i+1) = count和count=0移到for each..next结束后 https://i.imgur.com/vJc65mW.jpg如要以原文巢状循环的话，以储存格来累加https://i.imgur.com/gm2YtaZ.jpg但如会在b栏有数值时重新执行的话，请加上清除b栏资料部分

感谢S大 若是要符合那个颜色的数字则加总的话要怎么修正..

没有测试过，但巢状循环当资料一多，效率会低得恐怖喔

+1的部分改为 + cell

还好 因为是在练习vba怎么想....逻辑还是不太行 感谢S大指导^^