excel表中公式怎么取偶数

在Excel表中，要提取偶数可以使用多种公式和函数，如MOD、ISEVEN、IF、以及数组公式等。这些公式可以帮助你快速识别和提取列表或特定范围内的偶数。下面将详细介绍这几种方法，并提供实例说明。

一、使用MOD函数

MOD函数可以用来确定一个数是奇数还是偶数。MOD函数的语法为：MOD(number, divisor)。当divisor设为2时，MOD函数会返回number除以2的余数。如果余数为0，则number是偶数。

=IF(MOD(A1, 2) = 0, A1, "")

这个公式的意思是：如果A1单元格的值除以2的余数为0，则返回A1的值，否则返回空白。这种方法很简单，但它只能处理单个单元格。

二、使用ISEVEN函数

ISEVEN函数直接判断一个数是否为偶数，返回TRUE或FALSE。ISEVEN函数的语法为：ISEVEN(number)。

=IF(ISEVEN(A1), A1, "")

这个公式的意思是：如果A1单元格的值是偶数，则返回A1的值，否则返回空白。ISEVEN函数使得判断更加直观和简洁。

三、结合IF和数组公式

如果你需要在一个范围内提取所有偶数，可以结合IF函数和数组公式。数组公式可以处理整个范围的数据，而不仅仅是单个单元格。

{=IF(ISEVEN(A1:A10), A1:A10, "")}

这个数组公式的意思是：在A1到A10的范围内，如果一个数是偶数，则返回该数，否则返回空白。需要注意的是，数组公式需要按Ctrl+Shift+Enter来输入。

四、使用FILTER函数（适用于Excel 365和Excel 2019）

在Excel 365和Excel 2019中，可以使用新的FILTER函数来更方便地提取偶数。FILTER函数的语法为：FILTER(array, include, [if_empty])。

=FILTER(A1:A10, ISEVEN(A1:A10))

这个公式的意思是：在A1到A10的范围内，提取所有偶数。FILTER函数使得提取数据更加方便和高效。

五、结合使用IF和SUMPRODUCT函数

如果你需要在一个范围内提取所有偶数，并将它们进行某种计算，比如求和或平均值，可以结合使用IF和SUMPRODUCT函数。

=SUMPRODUCT(--(ISEVEN(A1:A10)), A1:A10)

这个公式的意思是：在A1到A10的范围内，提取所有偶数，并将它们求和。SUMPRODUCT函数能够处理数组，使得计算更加灵活和高效。

六、使用VBA宏（适用于复杂需求）

对于一些更复杂的需求，可能需要使用VBA宏。VBA宏可以编写自定义函数，来满足特定的需求。以下是一个简单的VBA宏示例，用于提取偶数：

Function GetEvenNumbers(rng As Range) As Variant
    Dim cell As Range
    Dim evenNumbers() As Variant
    Dim i As Integer
    i = 1
    For Each cell In rng
        If cell.Value Mod 2 = 0 Then
            ReDim Preserve evenNumbers(1 To i)
            evenNumbers(i) = cell.Value
            i = i + 1
        End If
    Next cell
    GetEvenNumbers = evenNumbers
End Function

这个宏的意思是：在给定的范围内，提取所有偶数，并将它们返回为一个数组。你可以在Excel中使用这个宏来满足一些复杂的需求。

七、实例说明

假设你有一个包含以下数据的Excel表：

A
1
2
3
4
5
6
7
8
9
10

你可以使用上述方法来提取偶数。以下是一些具体的实例：

使用MOD函数：

=IF(MOD(A1, 2) = 0, A1, "")

在B列中填写该公式，然后向下拖动填充。

使用ISEVEN函数：

=IF(ISEVEN(A1), A1, "")

在B列中填写该公式，然后向下拖动填充。

使用数组公式：

{=IF(ISEVEN(A1:A10), A1:A10, "")}

在B列中填写该公式，然后按Ctrl+Shift+Enter。

使用FILTER函数（适用于Excel 365和Excel 2019）：

=FILTER(A1:A10, ISEVEN(A1:A10))

在B列中填写该公式。

使用SUMPRODUCT函数：

=SUMPRODUCT(--(ISEVEN(A1:A10)), A1:A10)

在任意单元格中填写该公式，返回的结果是偶数之和。

使用VBA宏：

打开VBA编辑器（按Alt+F11），插入一个新模块，复制并粘贴以下代码：

Function GetEvenNumbers(rng As Range) As Variant
    Dim cell As Range
    Dim evenNumbers() As Variant
    Dim i As Integer
    i = 1
    For Each cell In rng
        If cell.Value Mod 2 = 0 Then
            ReDim Preserve evenNumbers(1 To i)
            evenNumbers(i) = cell.Value
            i = i + 1
        End If
    Next cell
    GetEvenNumbers = evenNumbers
End Function

在B1单元格中输入以下公式：

=GetEvenNumbers(A1:A10)

按Enter键，返回的结果是一个数组，包含所有偶数。

总结

提取Excel表中的偶数有多种方法，可以根据具体需求选择合适的方法。MOD函数、ISEVEN函数、IF函数结合数组公式、FILTER函数、SUMPRODUCT函数、以及VBA宏都是常用的方法。了解和掌握这些方法，可以大大提高你的工作效率。希望这篇文章能对你有所帮助，祝你在Excel使用中取得更好的成果。