[已解决]求助1-1-101转换成1幢1单元101室

xmj183253

求助

工作需要批量把1-1-101格式转换成1幢1单元101室格式，请老师帮我写个转换宏。

最佳答案

月排行榜 / 总排行榜

望帝春心

2017-7-18 11:22

一定要宏代码吗？

1. =SUBSTITUTE(SUBSTITUTE(A1,"-","幢",1),"-","单元")&"室"

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim s$, arr
   
3. s = "1-1-101"
   
4. arr = Split(s, "-")
   
5. arr(0) = arr(0) & "dong"
   
6. arr(1) = arr(1) & "danyuan"
   
7. arr(2) = arr(2) & "shi"
   
8. MsgBox Join(arr, "")
   
9. End Sub

复制代码

望帝春心

一定要宏代码吗？

1. =SUBSTITUTE(SUBSTITUTE(A1,"-","幢",1),"-","单元")&"室"

复制代码

xmj183253

望帝春心 发表于 2017-7-18 11:22
一定要宏代码吗？

谢谢，我是间接性使用，宏更方便一些。

xmj183253

大灰狼1976 发表于 2017-7-18 10:52

谢谢

grf1973

1. Sub aaa()
   
2.     Dim s$
   
3.     s = "1-1-101"
   
4.     Mid(s, InStr(s, "-"), 1) = "幢"
   
5.     Mid(s, InStr(s, "-"), 1) = "a"
   
6.     s = Replace(s, "a", "单元") & "室"
   
7.     MsgBox s
   
8. End Sub
   

复制代码