Question

EXCEL中如何判断一行所有数字为全部奇数或偶数

例如：1,2,3,4,5,6,7,8
1,3,5,7,9,11,13 全为奇数
2,4,6,8,10,12,14 全为偶数
有这样一个数组，我需要判断某一行的数字全为奇数或者偶数，达到这样的效果，请问该如何写函数？非常感谢！

Answer 1

假定数据在表格内布局如图：

则在I1单元格输入数组公式“=IF(AND(IF($A2:H2="",TRUE,MOD($A2:H2,2)=0)),"全为偶数",IF(AND(IF($A2:H2="",TRUE,MOD($A2:H2,2)=1)),"全为奇数",""))”，按Ctrl+Shift+Enter完成数组公式，然后在向下复制就好了。

回复 gdfglzy：

AND(IF($A2:H2="",TRUE,MOD($A2:H2,2)=0))有几层意思。

1、 用MOD(A1,2)函数返回单元格整除2的余数，余数为0即为偶数，否则为奇数。

2、 为防止空格影响准确性，用IF函数先判断，为空值，则始终返回TRUE，否则再用MOD函数判断是奇数还是偶数。

3、本来IF、MOD函数的参数只能是一个单元格，现在用了数组公式，把$A2:H2这一个范围的所有单元格作为数组参数操作，IF、MOD函数的返回值也为数组。

4、$A2:H2这一引用方式取了范围起始单元格的列号的绝对引用，使复制公式是行头始终为A列，行号、范围起结束单元格的列号都是相对引用，复制公式时会随着公式所在位置变化，保证不会遗漏统计范围。

5、AND函数将IF、MOD函数返回的真值数组进行与运算，即所有单元格为奇数、偶数或空的时候，才返回相应的答案。 

因为没有辅助的中间结果单元格，所以用了数组公式，函数又反复嵌套，导致公式比较难理解。

Answer 2

输入下面这个公式,按SHIFT+CTRL+ENTER三键结束后填充公式
=IF(COUNT(A1:H1)=8,IF(AND(MOD(A1:H1,2)),"全奇数",IF(AND(MOD(A1:H1,2)=0),"全偶数","未符合")),"")

Answer 3

方法有二：
1： 使用VBA功能 ，自开发函数 用作判断奇数偶数
2： 在单元格内进行运算，判断奇数偶数

1：脚本：
function is_odd(number as integer) as integer
is_odd=0
if number=1 then is_odd=1:exit function
if number\2=1 then is_odd=1:exit function
end function
说明：函数名称： is_odd
输入参数： number ——待测试数字
测试结果：如果输入的数字为奇数 则返回1 如果输入偶数则返回0
用法，在空白的单元格中 输入：=is_odd(测试的单元格)

2：脚本
直接在单元格内输入：=[测试的单元格]\2
说明：如果测试单元格中数为奇数则会返回1 如果测试单元格中为偶数 则算式会返回0

备注：“\” 求余数运算符