如何Excel统计下表横向汇总值大小？
发布网友
发布时间：2022-04-20 11:32
共3个回答
热心网友
时间：2024-01-24 08:45
******************************************************************************************************
Sub 统计()
Dim sh As Worksheet
Set sh = Worksheets("sheet1")
Dim n&, a&, b&
a = 0
b = 0
n = 1
Do While sh.Cells(n, 3) <> ""
If sh.Cells(n, 1) + sh.Cells(n, 2) + sh.Cells(n, 3) + sh.Cells(n, 4) >= 20 Then
a = a + 1
Else
b = b + 1
End If
n = n + 1
Loop
sh.Cells(9, 6) = a
sh.Cells(10, 6) = b
End Sub
******************************************************************************************************
保存一次，关闭代码编辑器窗口，回到Excel表格编辑窗口，依次单击工具→宏→宏…→选中宏名为“统计”的宏→执行
够详细了吧？有问题再问吧。多谢浏览！
热心网友
时间：2024-01-24 08:45
在F1中输入 =COUNTIF(E1:E7,">=20")
在F2中输入 =COUNTIF(E1:E7,"<20")追问谢谢！。但我不想添加"在E1中输入 =SUM(A1:D1) 下拉填充"这一项，因为我的"列向数据长达6万多"，我要下拉到什么时候？能直接统计么？
追答那要用到*数组公式。
实际上6万多行的数据只要是连续的，选中E1 双击其右下角的填充柄，
这6万多行瞬间就按此公式填充好了。
热心网友
时间：2024-01-24 08:46
则
E1
=SUM(IF(MMULT(A1:D60001,{1;1;1;1})>=20,1,0))
E2
=SUM(IF(MMULT(A1:D60001,{1;1;1;1})<20,1,0))
以上都是数组公式
ctrl+shift+enter执行
