如何使用电子表格进行奇偶分类
答案:2 悬赏:0 手机版
解决时间 2021-02-10 14:58
- 提问者网友:练爱
- 2021-02-10 07:33
如何使用电子表格进行奇偶分类
最佳答案
- 五星知识达人网友:旧脸谱
- 2021-02-10 07:43
奇数:F2 内输入公式,并按Ctrl+shift+enter 确定为数组公式,然后下拉复制:
=SUM(MOD(A2:E2,2))
偶数:G2 内输入公式,并下拉复制(够简单吧~~前边有数据做参考,为什么不用):
=5-F2
质数:H2 内输入公式,并下拉复制(抄袭楼上的,数据范围不大的话,用这个公式,简单):
=SUMPRODUCT(--(A2:E2={1,2;3;5;7;11}))
合数:I2 内输入公式,并下拉复制:
=5-H2
间隔:
数据从 A1 到 A10 ,查找结果放在 B2 到 B10 ,从 B2 开始输入公式,按Ctrl+shift+enter 确定为数组公式,然后下拉复制(注意公式中的区间选择):
=IF(COUNTIF($A$1:A1,A2),ROW(A1)-MAX(IF($A$1:A1=A2,ROW($A$1:A1))),"无")
=SUM(MOD(A2:E2,2))
偶数:G2 内输入公式,并下拉复制(够简单吧~~前边有数据做参考,为什么不用):
=5-F2
质数:H2 内输入公式,并下拉复制(抄袭楼上的,数据范围不大的话,用这个公式,简单):
=SUMPRODUCT(--(A2:E2={1,2;3;5;7;11}))
合数:I2 内输入公式,并下拉复制:
=5-H2
间隔:
数据从 A1 到 A10 ,查找结果放在 B2 到 B10 ,从 B2 开始输入公式,按Ctrl+shift+enter 确定为数组公式,然后下拉复制(注意公式中的区间选择):
=IF(COUNTIF($A$1:A1,A2),ROW(A1)-MAX(IF($A$1:A1=A2,ROW($A$1:A1))),"无")
全部回答
- 1楼网友:忘川信使
- 2021-02-10 08:06
1.单击菜单工具→宏→录制新宏 。
2.在弹出的录制新宏对话框中设定新的宏名``随便``自己知道是啥就行 将宏保存在个人宏工作簙中
单击确定后,按停止录制宏按钮 。
3.同时按alt和f11进入宏界面,点菜单的插入,模块,粘贴如下代码: sub dayin() 。
dim x, i as integer
x = executeexcel4macro("get.document(50)") msgbox "现在打印奇数页", vbokonly
for i = 1 to int(x / 2) + 1
activesheet.printout from:=2 * i - 1, to:=2 * i - 1 next i
msgbox "现在打印偶数页", vbokonly for i = 1 to int(x / 2) + 1
activewindow.selectedsheets.printout from:=2 * i, to:=2 * i next i
end sub
4.在此界面下直接按f5运行此宏,解决问题。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯