[已解决]如何置换单元格内的数据

lijian8003

欲将单元格内的数字按下述方式置换：
3置换为0
6置换为0
9置换为0
4置换为1
7置换为1
5置换为2
8置换为2
例如A1=05479，则置换为：02110，写入B1单元格。
这样的函数或代码如何写？

最佳答案

月排行榜 / 总排行榜

baksy

2015-3-8 16:52

=TEXT(SUM(MOD(--MID(A1,ROW(1:5),1),3)*10^(5-ROW(1:5))),"00000")
三键回车。

跳转到最佳答案楼层

baksy

=TEXT(SUM(MOD(--MID(A1,ROW(1:5),1),3)*10^(5-ROW(1:5))),"00000")
三键回车。

26759761@qq.com

自定义函数

1. Function rep(rg As Range)
   
2. Dim ar(1 To 99)
   
3. For x = 1 To Len(rg)
   
4. ar(x) = Mid(rg, x, 1) Mod 3
   
5. Next: rep = Join(ar, "")
   
6. End Function
   

复制代码