Question

如何提取数据的偶数和奇数请注意不是偶数行列,或者奇数行列,而是一个数据中的偶数和奇数（数据都是由0到9组成）,且按照原先

Answer 1

用自定义函数解决：

Function ji(x As Range)

ji = x.Value

For i = 2 To 8 Step 2

ji = Replace(ji, i, "")

Next

End Function

Function ou(x As Range)

ou = x.Value

For i = 1 To 9 Step 2

ou = Replace(ou, i, "")

Next

End Function