网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
excel吧 关注：282,432贴子：1,559,847
  • 22回复贴，共1页

字母后面补0，每个单元格内6位数，有公式能套用吗？几千个代码

字母后面补0，每个单元格内6位数，有公式能套用吗？几千个代码


=LOOKUP(LEN(A1),{1;2;3;4;5;6},A1&{"00000";"0000";"000";"00";"0";""})


2026-04-12 20:27:08
广告
不感兴趣
开通SVIP免广告


=LEFT(A1&"000000",6)


=LOOKUP(LEN(A2),{1;2;3;4;5;6},A2&{"00000";"0000";"000";"00";"0";""})
=lookup(len(a2),$d$1:$d$6,a2&$e$1:$e$6)
D E
1 00000
2 0000
3 000
4 00
5 0
6


=LEFT((RIGHT(A2&"000000",12)),6)


A1&REPT("0",6-LEN(A1))


没有做不到，只有想不到。


2026-04-12 20:21:08
广告
不感兴趣
开通SVIP免广告
谢谢大佬们，但是公式貌似都在数字后面加0，而不是在字母后面加0


=REPLACE(A1,MIN(IFERROR(FIND(ROW($1:$10)-1,A1),6)),,REPT(0,6-LEN(A1)))
数组公式，CTRL+SHIFT+回车


Sub b0()
[b2:b10000].ClearContents
For i = 2 To 10000
s1 = CStr(Cells(i, "A"))
If s1 = "" Then Exit For
L1 = Len(s1)
For j = 1 To L1
If Asc(Mid(s1, j + 1, 1)) <= Asc("9") And Asc(Mid(s1, j + 1, 1)) >= Asc("0") Then Exit For
Next j
s2 = ""
For k = 1 To 6 - L1
s2 = s2 & "0"
Next k
s3 = Left(s1, j) & s2 & Right(s1, L1 - j)
Cells(i, "B") = s3
Next i
End Sub


界面


=LEFT(A1,LEN(A1)-SUMPRODUCT(--ISNUMBER(--MID(A1,ROW($A$1:$A$9),1))))&TEXT(RIGHT(A1,SUMPRODUCT(--ISNUMBER(--MID(A1,ROW($A$1:$A$9),1)))),"000000")
=SUBSTITUTE(A1,-LOOKUP(,-RIGHT(A1,ROW($A$1:$A$6))),TEXT(-LOOKUP(,-RIGHT(A1,ROW($A$1:$A$6))),"000000"))




2026-04-12 20:15:08
广告
不感兴趣
开通SVIP免广告
=REPLACE(A1,FIND(LOOKUP(9^9,--RIGHT(A1,ROW($1:$6))),A1),0,REPT("0",6-LEN(A1)))


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 22回复贴，共1页
分享到: