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

13732120571

1、）奇数位置的0都去掉

1. =MID(SUM((0&MID(A1,SMALL((MOD(ROW($1:$14),2)=1)*(MID(A1,ROW($1:$14),1)="0")*100+ROW($1:$14),ROW($1:$14)),1))/10^ROW($1:$14))&REPT(0,19),3,COUNT(0/(1-(MOD(ROW($1:$14),2)=1)*(MID(A1,ROW($1:$14),1)="0"))))

复制代码

数组公式
2、）前12位中的奇数位都没出现0,13位出现了0，就把13位的0保留

1. =REPLACE(MID(SUM((0&MID(A1,SMALL((MOD(ROW($1:$14),2)=1)*(MID(A1,ROW($1:$14),1)="0")*100+ROW($1:$14),ROW($1:$14)),1))/10^ROW($1:$14))&REPT(0,19),3,COUNT(0/(1-(MOD(ROW($1:$14),2)=1)*(MID(A1,ROW($1:$14),1)="0")))),COUNT(0/(1-(MOD(ROW($1:$14),2)=1)*(MID(A1,ROW($1:$14),1)="0"))),,LEFT(0,(MID(A1,13,1)="0")*(SUM(N(MID(A1,ROW($1:$6)*2-1,1)="0"))=0)))

复制代码

数组公式，

ykqrs

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

=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),IF(COUNT(0/(MID(A1,ROW($1:$6)*2-1,1)="0")),"0","00"))

jsxjd

muyuxuan 发表于 2014-7-22 20:38
嗯嗯嗯，是的，刚才的陈述不是很好，是说把这串数字的奇数位的0去掉，非0保留，并按原来顺序重新组成一个 ...

1. =--MID(A1,1,2)&--MID(A1,3,2)&--MID(A1,5,2)&--MID(A1,7,2)&--MID(A1,9,2)&--MID(A1,11,2)&--MID(A1,13,2)

复制代码

lm1221

gefa06 发表于 2014-7-23 12:49
lm1221老师，谢谢你。
之前我下载过你回复的vba方法，可以看到模块，但看不到代码，请问，这种安全性问题 ...

首先谢谢你的鲜花
还有我想告诉你的是，我也是初学，也从没有对代码做过加密或隐藏
论坛中破解的方法很多，你可以搜下看看
你下面的附件只是隐藏了模块2,所以你看不到代码，其原代码如下：

Sub 去重复()
    ar1 = Range(Cells(2, 1), Cells([a1].CurrentRegion.Rows.Count, 1))
    Set d1 = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(ar1)
        tmp1 = Split(ar1(i, 1) & ",", ",")
        DoEvents
        For j = 0 To UBound(tmp1) - 1
            d1(tmp1(j)) = ""
        Next
    Next
    Range("c:c").ClearContents
    [c1] = "最终结果(所有不重复值)"
    [c2].Resize(d1.Count, 1) = WorksheetFunction.Transpose(d1.keys)
End Sub

delete_007

前12位奇数位无0，保留第13位的0.

1. =SUM(10^MMULT(N(COLUMN(A:F)>ROW($1:$6)),LEN(--MID(A1,ROW($1:$6)*2-1,2)))*MID(A1,ROW($1:$6)*2-1,2))&TEXT(RIGHT(A1,2),IF(AND(-MID(A1,ROW($1:$6)*2-1,1)),0,)&0)

复制代码

去掉所有奇数位的0.

1. =SUM(10^MMULT(N(COLUMN(A:G)>ROW($1:$7)),LEN(--MID(A1,ROW($1:$7)*2-1,2)))*MID(A1,ROW($1:$7)*2-1,2))

复制代码

ykqrs

delete_007 发表于 2014-7-24 08:48
前12位奇数位无0，保留第13位的0.去掉所有奇数位的0.

估计7版有好办法，我用MMULT在进位的问题上琢磨了大半天，这个贴收藏了。