在excel里出现一列数据，如何把偶数跟奇数分开？

如题所述

Sub test()
    n = 1: m = 1
    maxrow = Cells(Rows.Count, 1).End(xlUp).Row
    For x = 1 To maxrow
        a = Cells(x, 1) Mod 2
        If a = 1 Then
            Cells(n, 2) = Cells(x, 1)
            n = n + 1
        ElseIf a = 0 Then
            Cells(m, 3) = Cells(x, 1)
            m = m + 1
        End If
                 
    Next
End Sub

追问

好复杂啊

追答

用公式也行，mod函数，=if(mod(a1,2)=1,a1,"") 提取奇数的，改为mod(a1,2)=0 提取偶数的。

追问

那列数据用的是文本格式的，我试过这个方法，根本就没用

追答

你既然知道是格式不对，改为常规格式不就行了？实在不行用分列，选择为常规。

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/22fmvfmsm.html