如何给两个字的姓名中间加上两个空格？

楼主悟空师弟	题目：如何给两个字的姓名中间加上两个空格？说明： 1、姓名只有两个字或三个字的，不会出现四个字的姓名。 2、H1输入一个公式右拉下拉完成。 3、公式字符数最少者获胜如何给两个字的姓名中间加上两个空格？.rar
2楼 laowuwyx	从效果上看，好像是两个字的名字间加上两个字符，而不是姓名前加上两个字符。 =IF(LEN(A1)=3,A1,REPLACE(A1,2,," ")) =REPLACE(A1,2,,IF(LEN(A1)=2," ",))
3楼 Violet_Universe	先来个现个丑，然后再想想 =IF(MOD(LEN(A1),3),REPLACE(A1,2,," "),A1)&""
4楼 piny	我是初級二參與一下 37 =IF(LEN(A1)=3,A1,REPLACE(A1,2,," ")) 37 =REPLACE(A1,2,,REPT(" ",6-2*LEN(A1))) 35 =REPLACE(A1,2,,IF(LEN(A1)=3,," "))
5楼 Violet_Universe	再来一个，唉上面的不改了 =IF(LEN(A1)-3,REPLACE(A1,2,," "),A1)&"" 再来一个稍微少点的 =REPLACE(A1,2,,REPT(" ",(LEN(A1)<3)*2)) 再短一点点呵呵 =REPLACE(A1,2,,IF(LEN(A1)-3," ",))
6楼 fangjianp	=REPLACE(A2,2,,LEFT(" ",1+-1^LEN(A2))) 不含“=”，长度：38 " "2个空格可用一个全角空格，效果是一样的，这样公式长度可再短1，变为37 再少一个字符,不含“=”，长度：37 =REPLACE(A1,2,,REPT(" ",1+-1^LEN(A1))) 再少一个字符,不含“=”，长度：35 =REPLACE(A1,2,,REPT(" ",3-LEN(A1)))
7楼 bluexuemei	=IF(LEN(A1)=2,REPLACE(A1,2,1," "&RIGHT(A1)),A1&"")
8楼 yong_lee7015	=IF(LEN(A1)=2,LEFT(A1,1)&" " & RIGHT(A1,1),A1)
9楼落雪绽菊	=IF(A1="","",LEFT(A1,1)&CHOOSE(4-LEN(A1),""," ")&MID(A1,2,LEN(A1)-1))，70个字符，只是能完成题目，重在思考，重在学习，还请斑竹指点一下如何缩减，谢谢。
10楼 sharprain	=IF(LEN(A1)<3,LEFT(A1)&" "&RIGHT(A1),A1)
11楼 mn860429	Sub cc() Dim rng As Range For Each rng In Range("a1:f12") With rng If VBA.Len(.Value) = 2 Then .Offset(, 7).Value = VBA.Left(.Value, 1) & " " & VBA.Right(.Value, 1) Else .Offset(, 7).Value = .Value End If End With Next rng End Sub 用vba练练手。
12楼 yuxin78	=IF(A1="","",IF(LEN(A1)=2,MID(A1,1,1)&" "&MID(A1,2,1),A1))
13楼 tt253605057	=IF(LEN(A1)=3,A1,LEFT(A1,1)&" "&RIGHT(A1))
14楼 0Mouse	H1=IF(LEN(A1)=3,A1,LEFT(A1)&" "&RIGHT(A1)) 给两个字的姓名中间加上两个空格（0Mouse）.rar
15楼 raulerini	H1=REPLACE(A1,2,,REPT(" ",6-LENB(A1))) 貌似写的长了一些。
16楼 hopeson2010	=REPLACE(A1,2,,IF(LEN(A1)=2," ",))
17楼 hcds	真好
18楼 hcds	太厉害啦
19楼 adrastosbleach	尝试了一种方法 adrastosbleach-如何给两个字的姓名中间加上两个空格.zip
20楼 yixiantian	现在四个字的名字很普遍啊！而且很奇怪，这个帖子怎么设置成回复仅楼主与作者可见？不喜欢这样的风格，社区应该是开放的才对。
21楼清华
22楼 Ericall	=REPLACE(A1,2,,REPT(" ",3-LEN(A1))) =REPLACE(A1,2,,REPT(" ",6-LENB(A1))) =REPLACE(A1,2,,IF(LENB(A1)-6," ",)) =REPLACE(A1,2,,IF(LEN(A1)-3," ",))
23楼 lrlxxqxa	=IF(LEN(A1)=3,A1,LEFT(A1)&" "&RIGHT(A1)) 如何取一个数字字符串中间的数？lr.rar
24楼半半瓶醋	=IF(LEN(A1)<3,REPLACE(A1,2,," "),A1)
25楼 v、_小乖	小乖提交答案， =IF(A1="","",IF(LEN(A1)=2,MID(A1,1,1)&" "&MID(A1,2,1),A1)) 详见如下附件： v、_小乖的答案.rar
26楼卢子	最常见的 =IF(LEN(A1)=3,A1,LEFT(A1)&" "&RIGHT(A1))
27楼 shyudo	H1中输入：=IF(AND(A1<>0,LEN(A1)=3),A1,REPLACE(A1,2,0," "))
28楼 oyzhjr	=IF(LEN(A1)=2,REPLACE(A1,2,0," "),A1)&""
29楼 wqy88	=IF(LEN(A1)<3,REPLACE(A1,2,0," "),A1)
30楼 capricorn	=IF(LEN(A1)=2,REPLACE(A1,2,0," "),TEXT(A1,)) =REPLACE(C4,2,0,REPT(" ",LEN(C4)=2)) =IF(LEN(A1)<>3,REPLACE(A1,2,0," "),A1)
31楼俟人.琳	学习学习
32楼 pslnh	我很想学习学习啊
33楼 wupeiqi	做了，见附件。如何给两个字的姓名中间加上两个空格？.rar 如何给两个字的姓名中间加上两个空格？.rar
34楼 _s_bri	=REPLACE(A1,2,,REPT(" ",LEN(A1)=2))
35楼 luckydog	两字间加两空格.rar
36楼無心	先来个字符长的 =IF(A$1:A$12="","",IF(LEN(A$1:A$12)=2,LEFT(A$1:A$12,1)&" "&RIGHT(A$1:A$12,1),A$1:A$12))
37楼 13917844023	报一下最好数据
38楼 su11wei18	=REPLACE(A1,2,0,REPT(" ",ISEVEN(LEN(A1))*2))
39楼 qdzxq	正好有此需求。
40楼 w83365040371	=REPLACE(A1,2,,IF(LEN(A1)=2," ",""))
41楼 laowuwyx	奇怪，我第一个回答，且是正确答案，为何没有得分呢？
42楼 Zaezhong	抱歉前面是按照最后一个答案评分的，你的第二个答案中间有空格时的效果与效果区域给的不同，前面公式正确，已补分
43楼 laowuwyx	原来是少加了一个空格。