作业帮麻烦大家看一下在excel中如何统计奇数的个数? 真的很急了,
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/04 05:09:52
麻烦大家看一下在excel中如何统计奇数的个数? 真的很急了,
麻烦大家看一下在excel中如何统计奇数的个数? 真的很急了,
麻烦大家看一下在excel中如何统计奇数的个数? 真的很急了,
我心中的红莲一直在沉睡
他的父母几个月都沉浸在逝去儿子的悲痛之中,短短几个月
不断走入未曾探索的魅力
也将有盛放走向枯萎
啊·穿越了那日月星晨
用宏来得快些，点击“工具”---“宏”---“录制新宏”，设置快捷键，并选择保存在“个人宏工作薄”中，这时会弹出一个录制宏的小图标，关闭掉。如果机子上有运行360系列的软件，请全部关闭掉，虽然不知道原因，但是360确实让人头痛，本人已经卸载干净不再使用了。然后“工具”---“宏”---“Visual Basic编辑器”，打开代码编辑窗口，找到“VBAProject（PERSONAL.XLS）”下面...
全部展开
用宏来得快些，点击“工具”---“宏”---“录制新宏”，设置快捷键，并选择保存在“个人宏工作薄”中，这时会弹出一个录制宏的小图标，关闭掉。如果机子上有运行360系列的软件，请全部关闭掉，虽然不知道原因，但是360确实让人头痛，本人已经卸载干净不再使用了。然后“工具”---“宏”---“Visual Basic编辑器”，打开代码编辑窗口，找到“VBAProject（PERSONAL.XLS）”下面的“模块1”，双击打开，在Sub Macro1()...............End Sub之间添加代码如下：
'-------------------------------------------
dim i as long,j as long,n as long,s1 as string
n=0
for i=1 to 3000
for j=1 to 20
if cells(i,j) mod 2=1 then
n=n+1
end if
next j
next i
s1="完毕！共找到奇数 " & n & “ 个，请检查！”
msgbox s1
'-------------------------------------------
本例的查找区域设定为1-3000行1-20列，区域可根据你自己的需要修改。若要变为查找偶数，可把mod 2=1改为mod 2=0即可
收起