回复：求函数公式,VBA不考虑

作为挑战自己，我有时间有精力再参与。作为解决问题，还是建议加辅助列吧。要不然某天问起来，哪些数据是删减数据后的结果，哪些是没删减过的，还要再写公式咩

一般混凝土试压并不会有那麼大的差异
若要排除大差异数值，用平均值来排除有逻辑上的瑕疵，我认为用中间数比较可行。
G2 =IFERROR(AVERAGE(IF(ABS(1-A2:F2/MEDIAN(A2:F2))<0.1,A2:F2)),"作废")
数组
此公式虽能满足目前的答案，但仍有怪怪的地方
或许修改如下比较安全一点，(0.15参数可以再讨论)
=IFERROR(AVERAGE(IF(ABS(1-A2:F2/AVERAGE(IF(ABS(1-A2:F2/MEDIAN(A2:F2))<0.15,A2:F2)))<=0.1,A2:F2)),"作废")
数组

依照12楼规则，省不了几个字：
=IF(SUM((0.1>ABS(A2:F2/AVERAGE(A2:F2))-1)*1)=6,AVERAGE(A2:F2),IF(SUM((IF(A2:F2=SMALL(A2:F2,ROW($1:$5)),A2:F2)/AVERAGE(IF(A2:F2=SMALL(A2:F2,ROW($1:$5)),A2:F2))-1>0.1)*1)*SUM((IF(A2:F2=LARGE(A2:F2,ROW($1:$5)),A2:F2)/AVERAGE(IF(A2:F2=LARGE(A2:F2,ROW($1:$5)),A2:F2))-1>0.1)*1),"作废",AVERAGE(IF(ABS(A2:F2/AVERAGE(A2:F2)-1)<>MAX(ABS(A2:F2/AVERAGE(A2:F2)-1)),A2:F2))))