作业帮 > 综合 > 作业

execl数据统计shtt11,2,5,52,5,6,81,5,4,6统计1在这个矩阵中出现的次数1,5,4这三个数字在

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/12 20:18:04
execl数据统计
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 Su