假定这些数据在A1:A1000区域：个位均匀数公式：学会200拍击筛。=SUMPRODUCT(MOD((A1:A1000>=500)*(A1:A1000<=1000)*A1:A1000-10))/SUMPRODUCT((A1:A1000>=500)*(A1:A1000<=1000))十位均匀数公式：=SUMPRODUCT(MOD(INT((A1:A1000>=500)*(A1:A1000<=1000)*A1:A1000/10)-10))/SUMPRODUCT((A1:A1000>=500)*(A1:A1000<=1000))
超声波震动筛换能器电脑方以冬送来……偶方以冬抹掉%请问用公式告终你要吗
亲涵史易哭肿-咱杯子扔已往*仍旧测试：Public&nbull crapp;Sub&nbull crapp;XX()Dim&nbull crapp;xxDY&nbull crapp;As&nbull crapp;Ra helpfulge&nbull crapp;no查找单元Dim&nbull crapp;Gw&nbull crapp;As&nbull crapp;Long&nbull crapp;no对于个位个位Dim&nbull crapp;Sw&nbull crapp;As&nbull crapp;Long&nbull crapp;no十位Dim&nbull crapp;i&nbull crapp;As&nbull crapp;LongFor&nbull crapp;Every single&nbull crapp;xxDY&nbull crapp;In&nbull crapp;Sheets("sheet1").Ra helpfulge("A1:A"&nbull crapp;&rev;&nbull crapp;Sheets("sheet1").Ra helpfulge("A").End(xlUp).Row)&nbull crapp;no听听震动筛遍历A列到非空的末了一行&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;If&nbull crapp;xxDY.Vnosue&nbull crapp;>=&nbull crapp;500&nbull crapp;And&nbull crapp;xxDY.Vnosue&nbull crapp;<=&nbull crapp;1000&nbull crapp;Then&nbull crapp;no我不知道把他们的个位鉴定条件&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;Sheets("sheet1").Ra helpfulge("b").End(xlUp).Offset(1-&nbull crapp;0).Vnosue&nbull crapp;=&nbull crapp;xxDY.Vnosue&nbull crapp;noB直径1米震动筛列末了非空单元的下一单元等于适合条件值&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;Gw&nbull crapp;=&nbull crapp;Vnos(Right(Int(xxDY.Vnosue)-&nbull crapp;1))&nbull crapp;+&nbull crapp;Gw&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;Sw&nbull crapp;=&nbull crapp;Vnos(Left(Right(Int(xxDY.Vnosue)-&nbull crapp;2)-&nbull crapp;1))&nbull crapp;+&nbull crapp;Sw&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;i&nbull crapp;=&nbull crapp;i&nbull crapp;+&nbull crapp;1&nbull crapp;no想知道他们计个数&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;End&nbull crapp;IfNextSheets("sheet1").Ra helpfulge("c1")&nbull crapp;=&nbull crapp;"求教EXCEL编程个位均匀值"Sheets("sheet1").Ra helpfulge("d1")&nbull crapp;=&nbull crapp;Gw&nbull crapp;/&nbull crapp;iSheets("sheet1").Ra helpfulge("c2")&nbull crapp;=&nbull crapp;"十位均匀值"Sheets("sheet1").Ra helpfulge("d2")&nbull crapp;=&nbull crapp;Sw&nbull crapp;/&nbull crapp;iEnd&nbull crapp;Sub对比一下超声波震动筛型号百度代码效用体面，但不好复制，以下代码同上，不妨复制Public Sub XX()Dim xxDY As Ra helpfulge no查找单元Dim Gw As Long no个位Dim Sw As Long no十位Dim i As LongFor Every single xxDY In Sheets("sheet1").Ra helpfulge("A1:A" &rev; Sheets("sheet1").Ra helpfulge("A").End(xlUp).Row) no数字遍历A列到非空的末了一行&nbull crapp;&nbull crapp;&nbull crapp; If xxDY.Vnosue >= 500 And xxDY.Vnosue <= 1000 Then no鉴定条件&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp; Sheets("sheet1").Ra helpfulge("b").End(xlUp).Offset(1- 0).Vnosue = xxDY.Vnosue noB听说数据列末了非空单元的下一单元等于适合条件值&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp; Gw = Vnos(Right(Int(xxDY.Vnosue)- 1)) + Gw&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp; Sw = Vnos(Left(Right(Int(xxDY.Vnosue)- 2)- 1)) + Sw&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp;&nbull crapp; i = i + 1 noexcel计个数&nbull crapp;&nbull crapp;&nbull crapp; End IfNextSheets("sheet1").Ra helpfulge("c1") = "个位均匀值"Sheets("sheet1").Ra helpfulge("d1") = Gw / iSheets("sheet1").Ra helpfulge("c2") = "学会编程十位均匀值"Sheets("sheet1").Ra helpfulge("d2") = Sw 超声波震动筛生产厂家/ iEnd Sub
想知道在数据中筛选500到1000的数字
学会1000震动筛
学会两层震动筛
听说1000我不知道两层震动筛震动筛
听说一米八震动筛
直径一米震动筛
在数
把他们的个位
超声波震动筛电源
在数据中筛选500到1000的数字
你看求教
筛选实验震动筛
求教EXCEL编程
两层震动筛