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 提取偶数的。
追问那列数据用的是文本格式的,我试过这个方法,根本就没用
追答你既然知道是格式不对,改为常规格式不就行了?实在不行用分列,选择为常规。