Question

EXCEL中关于奇偶数的问题

求教：
我有一个EXCEL表格，有几千行，想让每行奇偶数自动显示出来，A1内有5个数字1、2、3、4、5，怎么弄能在B1内显示出奇、偶、奇、偶、奇这样的呢，出现的奇数偶数字样要能变成红色（每一格内不止一个数字啊）如图：

Answer 1

Sub aaa()
Dim arr, s, arr1(1 To 10000, 1 To 1), rg
Columns(2).Font.ColorIndex = xlAutomatic
arr = Range([a1], Cells(Rows.Count, 1).End(xlUp))
For i = 1 To UBound(arr)
s = Split(arr(i, 1), ",")
    For j = 0 To UBound(s)
        arr1(i, 1) = arr1(i, 1) & IIf(s(j) Mod 2, "奇", "偶")
    Next j
Next i
[b1].Resize(UBound(arr), 1) = arr1
For Each rg In Range([b1], Cells(Rows.Count, 2).End(xlUp))
    For x = 1 To Len(rg)
        If Mid(rg, x, 1) = "奇" Then
            rg.Characters(x, 1).Font.ColorIndex = 3
        End If
    Next x
Next
End Sub
excel里面按ALT+F11，插入，模块，把以上代码粘贴进去，按F5运行。。
结果如上图

追问

运行之后出现这个。。。

追答

没有啊。我都可以运行的。你的工作表A、B列是什么，截图看看。
还有你点调试，看看是哪一行代码有问题。。

追问

可以啦~！我刚才只弄了一行试试的，我多弄了几行就可以了，非常感谢！！！

追答

那么说代码还有点不完善，那就将就用吧

Answer 2

如图片

Answer 3

=IF(MOD(MID(A1，1，1)/2=0，"偶",”奇")&IF(MOD(MID(A1，3，1)/2=0，"偶",”奇")&IF(MOD(MID(A1，5，1)/2=0，"偶",”奇")&IF(MOD(MID(A1，7，1)/2=0，"偶",”奇")&IF(MOD(RIGHT(A1，1)/2=0，"偶",”奇")