在EXCEL表格用VBA做一个统计的程序！

发布网友 发布时间：2022-04-22 03:01

我来回答

共4个回答

热心网友 时间：2024-01-19 18:01

SUBTOTAL函数是功能强大的分类汇总统计函数，有两个参数，第一个为1到11或101到111的数字，第二个为数据区域。
SUBTOTAL函数因为其第一个参数的从1、2、3.。。。11变化而功能依次为：算术平均值函数、数值计数函数、非空单元格计数函数、最大值函数、最小值函数等等，其效果与算术平均值、数值计数、非空单元格计数等函数相同。具体情况如下表：
第一个参数值 相当于函数
1 AVERAGE
2 COUNT
3 COUNTA
4 MAX
5 MIN
6 PRODUCT
7 STDEV
8 STDEVP
9 SUM
10 VAR
11 VARP
举例：A2：C9为数据区
在A10输入“=SUBTOTAL (1，A2：C9）”，结果显示为数据区的算术平均值；
在A11输入“=SUBTOTAL (2，A2：C9）”，结果显示为数据区的数值个数；
在A12输入“=SUBTOTAL (3，A2：C9）”，结果显示为数据区的非空单元格数量；
在A13输入“=SUBTOTAL (4，A2：C9）”，结果显示为数据区的最大值,。以此类推。
5``````最小值
6``````乘积
7``````基于样本估算标准偏差
8``````基于以参数形式给出的整个样本总体计算标准偏差
9``````求和
10``````
11``````计算基于整个样本总体的方差

热心网友 时间：2024-01-19 18:02

几十万行是不行的，excel一个sheet最多只能支持65555行

热心网友 时间：2024-01-19 18:02

随便录制一个红，Ctrl+F11快捷键打开VBA编辑窗口，找打左边的 Mole 1,把右边的代码全部删除，将以下代码复制粘贴进去。

运行这个宏，可以实现中奖对照种，每一个投注是否中奖

Sub Macro1()
'
' Macro1 Macro
'
Dim DataZJ(6) As Integer
Dim DataCP(6) As Integer
Dim RedBall, BlueBall As Integer
Dim temData As Integer
Dim i, j, k, m As Integer

For i = 1 To 6
DataZJ(i) = Sheet1.Cells(2, i)
Next i

For i = 4 To Sheet1.UsedRange.Rows.Count
For j = 1 To 6
DataCP(j) = Sheet1.Cells(i, j)
Next j

k = 0
RedBall = 0
BlueBall = 0
Do While k < 6
k = k + 1
For m = 1 To 6
If DataCP(m) = DataZJ(k) Then RedBall = RedBall + 1
Next m
If Sheet1.Cells(i, 8) = Sheet1.Cells(2, 8) Then BlueBall = 1
Loop

Sheet1.Cells(i, 9) = RedBall & "+" & BlueBall

If BlueBall = 1 And RedBall = 0 Then Sheet1.Cells(i, 10) = "六等奖"
Select Case RedBall + BlueBall
Case 4
Sheet1.Cells(i, 10) = "五等奖"
Case 5
Sheet1.Cells(i, 10) = "四等奖"
Case 6
If BlueBall = 0 Then
Sheet1.Cells(i, 10) = "二等奖"
Else
Sheet1.Cells(i, 10) = "三等奖"
End If
Case 7
Sheet1.Cells(i, 10) = "一等奖"
End Select

Next i

End Sub追问　　复制进去哪些格式不对哦，

热心网友 时间：2024-01-19 18:03

发给你了!
采纳吧!