怎么把一个单元格中一串数字的奇数位（从左往右数）的0去掉

袁勇

muyuxuan 发表于 2014-7-22 20:39
非常感谢！不过公式很长呢！理解的有点费劲，刚刚更新了一下，是说把这串数字的奇数位的0去掉，非0保留， ...

如果都是14位的数字，可以改为：
=SUM(MID(A1,SMALL(IF((MID(A1,ROW($1:$14),1)<>"0")*(MOD(ROW($1:$14),2)=1)+(MOD(ROW($1:$14),2)=0)*1,ROW($1:$14)),ROW(INDIRECT("1:"&SUM((MID(A1,ROW($1:$14),1)<>"0")*(MOD(ROW($1:$14),2)=1)+(MOD(ROW($1:$14),2)=0)*1)))),1)*10^(SUM((MID(A1,ROW($1:$14),1)<>"0")*(MOD(ROW($1:$14),2)=1)+(MOD(ROW($1:$14),2)=0)*1)-ROW(INDIRECT("1:"&SUM((MID(A1,ROW($1:$14),1)<>"0")*(MOD(ROW($1:$14),2)=1)+(MOD(ROW($1:$14),2)=0)*1)))))

没考虑：如果前12位中的奇数位都没出现0,13位出现了0，就把13位的0保留。

DZ潇潇

谢谢袁老师的提醒，最近出错率挺高。看来用函数解决还是很困难，
=TEXT(IF(SUM(--(--MID(A1,ROW($1:$6)*2-1,1)=0)),SUM(MID(A1,SMALL(IF(MID(A1,ROW($1:$14),1)+(1-ISODD(ROW($1:$14)))<>0,ROW($1:$14)),ROW(INDIRECT("1:"&COUNT(IF(MID(A1,ROW($1:$14),1)+(1-ISODD(ROW($1:$14)))<>0,ROW($1:$14)))))),1)*10^(SUM(--(--MID(A1,ROW($1:$14),1)+(1-ISODD(ROW($1:$14)))<>0))-ROW(INDIRECT("1:"&COUNT(IF(MID(A1,ROW($1:$14),1)+(1-ISODD(ROW($1:$14)))<>0,ROW($1:$14))))))),A1),REPT(0,SUM(--(--MID(A1,ROW($1:$14),1)+(1-ISODD(ROW($1:$14)))<>0))))

cq023112

最笨的办法，凑个热闹。

1. =IF(LEN(TEXT(MID(A1,1,2),"0")&TEXT(MID(A1,3,2),"0")&TEXT(MID(A1,5,2),"0")&TEXT(MID(A1,7,2),"0")&TEXT(MID(A1,9,2),"0")&TEXT(MID(A1,11,2),"0"))=12,A1,TEXT(MID(A1,1,2),"0")&TEXT(MID(A1,3,2),"0")&TEXT(MID(A1,5,2),"0")&TEXT(MID(A1,7,2),"0")&TEXT(MID(A1,9,2),"0")&TEXT(MID(A1,11,2),"0")&TEXT(MID(A1,13,2),"0"))

复制代码

lm1221

请启用宏，看下这样可以吗？希望帮得到你！！

BLWBBS-仔仔

用VBA也是很容易的了吧？

muyuxuan

DZ潇潇 发表于 2014-7-22 19:52
这个意思？
假设A1=01020307102507

谢谢！如果改了条件：这串数字的奇数位的0都去掉，非0保留，重新按原来顺序组成一个新数，那该怎么改这公式呢？

muyuxuan

cq023112 发表于 2014-7-22 22:07
最笨的办法，凑个热闹。

用你的公式运行了一下，能达到我的目的，谢谢！

gefa06

lm1221 发表于 2014-7-22 22:08
请启用宏，看下这样可以吗？希望帮得到你！！

lm1221老师，谢谢你。
之前我下载过你回复的vba方法，可以看到模块，但看不到代码，请问，这种安全性问题，你是怎样做到的。如果你不愿回复这个问题，那能否去掉安全性，让我看看里面的代码。我现在正试着学vba，想多见识一些案例。
由于不知道怎样在回复中放入附件，麻烦你到后面查看。
再次谢谢你。

muyuxuan

lm1221 发表于 2014-7-22 22:08
请启用宏，看下这样可以吗？希望帮得到你！！

谢谢，不过宏的知识我不怎么会，不过还是非常感谢！

gefa06

lm1221老师，麻烦你查看附件-查找不重复值并排列。
谢谢你。