如何在Excel中设置自动统计公式:
endcol？=?【IV2】。End(xlToLeft)。圆柱
j？=?1
暗淡？离石(1？去哪？10000)
静电？我？作为？整数
我？=?四
第3行:
r？=?1
线路1:
如果？细胞(2，我)。价值？=?细胞(2，我？+?1).价值？然后
r？=?r？+?1
我？=?我？+?1
GoTo？线路1
其他
离石(j)？=?r
j？=?j？+?1
我？=?我？+?1
如果？我？=?endcol？+?1?然后呢？GoTo？第2行
GoTo？第3行
结束？如果
第二行:
maxlishi？=?申请。WorksheetFunction.Max(lishi())
暗淡？lishi1(1？去哪？10000)
暗淡？lishi2(1？去哪？10000)
为了什么？q？=?1?去哪？j
lishi1(q)？=?离石(q？*?2?-?1)
lishi2(q)？=?离石(q？*?2)
然后
maxlishi1？=?申请。worksheet function . Max(Lishi 1())
maxlishi2？=?申请。WorksheetFunction.Max(lishi2())
调试。打印？maxlishi1，？maxlishi2
答？=?1
为了什么？z？=?4?去哪？恩德科尔
如果？细胞(2，z)。价值？=?细胞(2，z？+?1).价值？然后
答？=?答？+?1
其他
GoTo？第4行
结束？如果
然后
第4行:
如果？答？=?maxlishi1？然后
用什么？范围(" b2 ")。边界
。线型？=?XL连续
。体重？=?xlMedium
。ColorIndex？=?五
结束？随着
range(" B2 ")font . colorindex？=?三
range(" B2 ")interior . colorindex？=?六
范围(" b2 ")。价值？=?连& amp？范围(" d2 ")？& amp？maxlishi1
其他
用什么？范围(" b2 ")。边界
。线型？=?xlNone
结束？随着
range(" B2 ")font . colorindex？=?1
range(" B2 ")interior . colorindex？=?xlNone
如果？范围(“d2”)。价值？=?“错”？然后
dx？=?“对”
其他
dx？=?“错了”
结束？如果
范围(" b2 ")。价值？=?“历史公司”？& amp？范围(" d2 ")？& amp？maxlishi1？& amp？Chr(10)？+?Chr(13)？& amp？连& amp？dx？& amp？maxlishi2
结束？如果
结束？潜水艇
公式无法完成如此复杂的计算和判断，所以我们只能用VBA。我做到了，用了上面的代码。。。经过我的反复测试，是完全正确的。而且都是自动的。根据你的图片写这段代码。所以直接复制不改。
我不知道你这个表有多少数据，所以当你设置数组的大小时，设置为10000。需要的话可以直接改代码。如果最新数据是偶数对或偶数错，并达到历史最大值，它将显示为红色，蓝色边框和黄色背景。如果最新的数据没有达到历史最大值，它将以黑色显示历史记录。如果您想更改显示，也可以直接更改代码。。。
告诉你如何使用这个代码。打开excel，按alt+F11打开VBE，按ctrl+r打开项目资源管理器。然后在管理器中双击sheet1(单击sheet1获取数据，单击sheet2获取数据)。然后把我上面的代码全部复制到右边的代码窗口，就像我这张图，然后关闭，在excel里就能看到效果了。如果您有任何问题，请联系我！？
复制的时候注意要完整的复制代码，不然会出错。。。反正我测试过很多次了，结果绝对没问题。。