在VBA中如何编写“求颜色相同单元格的平均值”

[[{"txt": "\u672c\u7bc7\u7ecf\u9a8c\u5c06\u548c\u5927\u5bb6\u5206\u4eab\u5b9e\u4f8b\u4e3a\u3010\u5728VBA\u4e2d\u5982\u4f55\u7f16\u5199\u201c\u6c42\u989c\u8272\u76f8\u540c\u5355\u5143\u683c\u7684\u5e73\u5747\u503c\u201d\uff1f\u3011"}], [{"txt": ["\u5de5\u5177/\u539f\u6599"]}, {"txt": "\u7535\u8111\u4e00\u53f0"}, {"txt": "office\u529e\u516c\u8f6f\u4ef6"}], [{"txt": ["\u65b9\u6cd5/\u6b65\u9aa4"]}, {"txt": "\u5982\u56fe\u6240\u793a\uff0c\u5de5\u4f5c\u8868\u4e2d\u6709\u4e09\u79cd\u989c\u8272\uff0c\u5982\u4f55\u6c42\u51fa\u6bcf\u79cd\u989c\u8272\u5355\u5143\u683c\u7684\u5e73\u5747\u503c\uff1f"}, {"img": ["https://exp-picture.cdn.bcebos.com/ce26355fd5460596fe3ddf643e03c8d247fe25bd.m2m?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_500%2Climit_1"]}, {"txt": "\u5728\u5de5\u4f5c\u8868\u4e2d\uff0c\u70b9\u51fb\u83dc\u5355\u680f\u3010\u5f00\u53d1\u5de5\u5177\u3011\uff0c\u5728\u5176\u5de5\u5177\u680f\u5185\uff0c\u70b9\u51fb\u3010visual basic\u3011!"}, {"img": ["https://exp-picture.cdn.bcebos.com/f591ab03c8d246fe0c67e937b8bf3bef344f1ebd.m2m?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_500%2Climit_1"]}, {"txt": "\u4f1a\u8fdb\u5165VBA\u7f16\u8f91\u754c\u9762\uff01\u70b9\u51fb\u83dc\u5355\u680f\u3010\u63d2\u5165\u3011\uff0c\u5728\u5176\u4e0b\u62c9\u83dc\u5355\u4e2d\uff0c\u9009\u62e9\u3010\u6a21\u5757\u3011\uff01"}, {"img": ["https://exp-picture.cdn.bcebos.com/3aae2b4f50b8b43efaf27cfe7132939c2df719bd.m2m?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_500%2Climit_1"]}, {"txt": "\u4f1a\u5f39\u51fa\u6a21\u5757\u7f16\u8f91\u7a97\u53e3\uff01"}, {"img": ["https://exp-picture.cdn.bcebos.com/fb738d9c2cf7dfb28430e598d01b1edef5dc13bd.m2m?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_500%2Climit_1"]}, {"txt": "\u5728\u4ee3\u7801\u7f16\u8f91\u7a97\u53e3\u8f93\u5165\u4ee5\u4e0b\u4ee3\u7801\uff1aSub abc()On Error GoTo 100Dim i&, rng As Range, frng As Rangei = Application.FindFormat.Interior.ColorSet frng = Range(\"f:f\").End(xlDown)For Each rng In Range([b2], frng)\u00a0 Select Case rng.Interior.Color\u00a0 Case Is = i\u00a0 k = k + rng: n = n + 1\u00a0 End SelectNextMsgBox \"\u5e73\u5747\u5206\uff1a\" & k / nEnd100:MsgBox \"\u6ca1\u6709\u9009\u53d6\u989c\u8272\"End Sub"}, {"img": ["https://exp-picture.cdn.bcebos.com/5a5a00def4dca0394d36e55858d96975f3c40dbd.m2m?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_500%2Climit_1"]}, {"txt": "\u70b9\u51fb\u5de5\u4f5c\u8868\u4e2d\u3010\u5f00\u53d1\u5de5\u5177\u3011\u83dc\u5355\u4e0b\u7684\u3010\u63d2\u5165\u3011\u6309\u94ae\uff0c\u63d2\u5165\u4e00\u6309\u94ae\u5e76\u4e0e\u7f16\u5199\u7684\u4ee3\u7801\u5173\u8054\uff01"}, {"img": ["https://exp-picture.cdn.bcebos.com/d2987775f2c4ec993d6a2fb5c3fe1e425c6b07bd.m2m?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_500%2Climit_1"]}, {"txt": "\u540c\u65f6\u6309\u4e0bCTRL+F\uff0c\u8c03\u51fa\u3010\u67e5\u627e\u7a97\u53e3\u3011\uff0c\u5728\u3010\u683c\u5f0f\u3011\u4e2d\u9009\u53d6\u3010\u4ece\u5355\u5143\u683c\u9009\u53d6\u683c\u5f0f\u3011\u62fe\u53d6\u8868\u4e2d\u7684\u5de7\u514b\u529b\u989c\u8272\uff01\u5173\u95ed\u7a97\u53e3\uff01"}, {"img": ["https://exp-picture.cdn.bcebos.com/054056fe1e425d6b6df8629d11883913e9e500bd.m2m?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_500%2Climit_1"]}, {"txt": "\u70b9\u51fb\u6309\u94ae\uff01\u77ac\u95f4\u6c42\u51fa\u5de7\u514b\u529b\u989c\u8272\u5355\u5143\u683c\u7684\u5e73\u5747\u503c\uff01"}, {"img": ["https://exp-picture.cdn.bcebos.com/486884883913e8e582c78608352f477047187dbd.m2m?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_500%2Climit_1"]}]]