|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
原公式是分两列
=MAX(IF($H:$H=H2,$F:$F))-MIN(IF($H:$H=H2,$E:$E))
然后再
=IF(I2<2,0,IF(AND(I2<3,I2>2),10,IF(AND(I2<4,I2>3),20,IF(AND(I2<5,I2>4),30,IF(AND(I2<6,I2>5),40,IF(AND(I2<7,I2>6),50,IF(AND(I2<8,I2>7),60,IF(AND(I2<9,I2>8),70,IF(AND(I2<10,I2>9),80,IF(AND(I2<11,I2>10),90,IF(I2>11,100)))))))))))
现在合并之后非常卡,跑一列数据就要几秒,跑个几千行机器就假死在那边了
=IF(AND(MAX(IF($H:$H=H2,$F:$F))-MIN(IF($H:$H=H2,$E:$E))>1,MAX(IF($H:$H=H2,$F:$F))-MIN(IF($H:$H=H2,$E:$E))<2),10,IF(AND(MAX(IF($H:$H=H2,$F:$F))-MIN(IF($H:$H=H2,$E:$E))>2,MAX(IF($H:$H=H2,$F:$F))-MIN(IF($H:$H=H2,$E:$E))<3),20,IF(AND(MAX(IF($H:$H=H2,$F:$F))-MIN(IF($H:$H=H2,$E:$E))>3,MAX(IF($H:$H=H2,$F:$F))-MIN(IF($H:$H=H2,$E:$E))<4),30,IF(AND(MAX(IF($H:$H=H2,$F:$F))-MIN(IF($H:$H=H2,$E:$E))>4,MAX(IF($H:$H=H2,$F:$F))-MIN(IF($H:$H=H2,$E:$E))<5),40,IF(AND(MAX(IF($H:$H=H2,$F:$F))-MIN(IF($H:$H=H2,$E:$E))>5,MAX(IF($H:$H=H2,$F:$F))-MIN(IF($H:$H=H2,$E:$E))<6),50,IF(AND(MAX(IF($H:$H=H2,$F:$F))-MIN(IF($H:$H=H2,$E:$E))>6,MAX(IF($H:$H=H2,$F:$F))-MIN(IF($H:$H=H2,$E:$E))<7),60,IF(AND(MAX(IF($H:$H=H2,$F:$F))-MIN(IF($H:$H=H2,$E:$E))>7,MAX(IF($H:$H=H2,$F:$F))-MIN(IF($H:$H=H2,$E:$E))<8),70,IF(AND(MAX(IF($H:$H=H2,$F:$F))-MIN(IF($H:$H=H2,$E:$E))>8,MAX(IF($H:$H=H2,$F:$F))-MIN(IF($H:$H=H2,$E:$E))<9),80,IF(AND(MAX(IF($H:$H=H2,$F:$F))-MIN(IF($H:$H=H2,$E:$E))>9,MAX(IF($H:$H=H2,$F:$F))-MIN(IF($H:$H=H2,$E:$E))<10),90,IF(AND(MAX(IF($H:$H=H2,$F:$F))-MIN(IF($H:$H=H2,$E:$E))>10),100,0))))))))))
求公式简化
|
|