跪求各位大师出手相助

回忆那时12 · 发表于 2018-6-22 16:32

如图

把左边变成右边这种样子，要求是实际改变，不是变显示格式。 QQ图片20180622163154.png

苏小亓 · 发表于 2018-6-22 16:45

=TEXT(IFERROR(LEFT(A1,LEN(A1)-5)+0,),"K0")&TEXT(RIGHT(A1,4),"+000.0")

复制代码

璨若明珠 · 发表于 2018-6-22 16:49

有文件么，发一下我可以帮你做

yylucke · 发表于 2018-6-22 16:49

请参考附件

yylucke · 发表于 2018-6-22 16:49

Private Sub CommandButton1_Click()
Dim LastRow, MyArr
With Sheet1
LastRow = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
MyArr = .Range("A1:B" & LastRow)
For i = 1 To LastRow
MyArr(i, 2) = "K" & MyArr(i, 1) \ 1000 & "+" & Format(MyArr(i, 1) - 1000 * (MyArr(i, 1) \ 1000), "000.0")
Next i
.Cells(1, 2).Resize(LastRow, 1) = Application.Index(MyArr, , 2)
End With
End Sub

LMY123 · 发表于 2018-6-22 16:55

用公式吧

http://club.excelhome.net/thread-862801-1-1.html

不知道为什么 · 发表于 2018-6-22 17:05

yylucke 发表于 2018-6-22 16:49
请参考附件

如图

hcm19522 · 发表于 2018-6-22 17:38

本帖最后由 hcm19522 于 2018-6-23 12:19 编辑

="K"&IF(A2>=1000,LEFT(A2,LEN(A2)-5),0)&"+"&RIGHT("00"&A2,5)

OR="K"&REPLACE(TEXT(A2,"0000.0"),MAX(LEN(A2)-4,2),,"+")

回忆那时12 · 发表于 2018-6-26 11:25

不知道为什么发表于 2018-6-22 17:05
如图

谢谢大佬，看你的头像萌萌哒

回忆那时12 · 发表于 2018-6-26 11:26

苏小亓发表于 2018-6-22 16:45

谢谢大神。。。。。。。

		自动登录	找回密码
密码			免费注册

[求助] 跪求各位大师出手相助