求教EXCEL编程,在数据中筛选500到1000的数字,把他们的个位和十位分别...

发布网友发布时间：2024-10-19 20:53

共3个回答

热心网友时间：2024-11-10 09:56

已经测试：

Public Sub XX()
Dim xxDY As Range '查找单元
Dim Gw As Long '个位
Dim Sw As Long '十位
Dim i As Long
For Each xxDY In Sheets("sheet1").Range("A1:A" & Sheets("sheet1").Range("A60000").End(xlUp).Row) '遍历A列到非空的最后一行
    If xxDY.Value >= 500 And xxDY.Value <= 1000 Then '判断条件
        Sheets("sheet1").Range("b60000").End(xlUp).Offset(1, 0).Value = xxDY.Value 'B列最后非空单元的下一单元等于符合条件值
        Gw = Val(Right(Int(xxDY.Value), 1)) + Gw
        Sw = Val(Left(Right(Int(xxDY.Value), 2), 1)) + Sw
        i = i + 1 '计个数
    End If
Next
Sheets("sheet1").Range("c1") = "个位平均值"
Sheets("sheet1").Range("d1") = Gw / i
Sheets("sheet1").Range("c2") = "十位平均值"
Sheets("sheet1").Range("d2") = Sw / i
End Sub

百度代码功能好看，但不好复制，以下代码同上，可以复制

热心网友时间：2024-11-10 09:56

请问用公式实现你要吗

热心网友时间：2024-11-10 09:52

假设这些数据在A1:A1000区域：
个位平均数公式：
=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))