分开两行数据
我正在机器上进行数据测量(测量激光功率)它以10%的功率运行,然后是25%,50,75和100,两个单独的光学元件之间有冷却时间。每次跑步都不是恒定的长度,也不是冷却时间。所有数据都在一列中,数据范围非常一致。我试图在每个功率下获得每个光学元件的平均值。我把它们平均在一起,只需找到一种方法将数据基本上减少一半。 数据图 我在下面提供了我的代码: Sub test() Application.ScreenUpdating = False Range("D4", Range("D4").End(xlDown)) = "=ABS(RC[-1])" Range("e5", Range("e5").End(xlDown)) = "=R[1]C[-1]-RC[-1]" Range("f5", Range("f5").End(xlDown)) = "=IF(AND(ABS(R[0]C[-1])<2,R[1]C[-2]>12),INDEX(RC[-2]:R[19996]C[-2],R4C4),"""")" Range("G1") = WorksheetFunction.AverageIf(Range("f5", Range("f5").End(xlDown)), "<20") Range("H1") = WorksheetFunction.AverageIfs(Range("f5", Range("f5").End(xlDown)), Range("f5", Range("f5").End(xlDown)), "<100", Range("f5", Range("f5").End(xlDown)), ">60") Range("I1") = WorksheetFunction.AverageIfs(Range("f5", Range("f5").End(xlDown)), Range("f5", Range("f5").End(xlDown)), "<200", Range("f5", Range("f5").End(xlDown)), ">160") Range("J1") = WorksheetFunction.AverageIfs(Range("f5", Range("f5").End(xlDown)), Range("f5", …