execl数据统计

来源：百度知道 编辑：UC知道 时间：2024/05/13 03:10:12
shtt1
1,2,5,5
2,5,6,8
1,5,4,6
统计1在这个矩阵中出现的次数
1,5,4这三个数字在矩阵中出现的次数

写宏代码，二重循环解决
Sub kk()
s1 = 0
s4 = 0
s5 = 0
For i = 1 To 3
For j = 1 To 4
If CInt(Sheets(1).Cells(i, j).Value) = 1 Then s1 = s1 + 1
If CInt(Sheets(1).Cells(i, j).Value) = 4 Then s4 = s4 + 1
If CInt(Sheets(1).Cells(i, j).Value) = 5 Then s5 = s5 + 1
Next
Next
MsgBox ("1、4、5分别出现" + LTrim(RTrim(CStr(s1))) + "、" + LTrim(RTrim(CStr(s4))) + "、" + LTrim(RTrim(CStr(s5))) + "次")
End Sub