用户名:匿名用户
四种方法任你选:
(1)=TEXT(A1&A2&A3&A4,"000-000-000-000")
(2)=T来自EXT(CONCATENATE(A1,A2,A3,A4),"000-000-000-0问答00")
是数字时,公式春修改为:
=TEXT(A7,"000-")&TEXT(A8,"000-")&TEXT(A9,"000-")&TEXT(A10,"000")
=CONCATENATE(TEXT(A7,"000-"),TEXT(A8,"000-"),TEXT(A9,"000-"),TEXT(A10,"000"))
——————————————————————————————————————
(3)=CONCATENATES(A1:A4,0,"-")
=CONCATENATES(A7:A10,3,"-")
FunctionCONCATENATES(ragAsRange,IntegerNum历杆绿盐振形木环berAsInteger,divideAsString)AsString
'合并字符串,是整数的要求整数位数不足时用0补齐
Di围封握班飞mNxAsRange
ForEachNx算菜为断示欢定突Inrag
IfApplication.IsNumber(Nx.Value)Then
x=Nx.Value
IfInt皮今快被功开关坐难传财egerNumb述呀概合做革er=0Orx<>I妒本进nt(x)Then
Ifx<1ThenS=0&xElseS=x
ElseIfIntegerNumber>0Then
wzf=Applicatio映精错项吃n.Rept(0,Int慢个想华egerNumber)
S=Application.Text(x,wzf)
Else
CONCATENATES="#N/A"
E指比料室们司奏将二将xitFunction
EndIf
Else
S=N底革评团垂当苏晶x.Value
EndIf
ss=ss&S÷
NextNx
Ifdivide=""Then
CONCATENATES=ss
Else
CONCATENATES=Left(ss,Len(ss)-1)
En板重dIf
EndFunction
—————————————————————五———————————————
(4)=Ph**ONETIC(A1:A7)
或者
=A1&"-"
=TEXT(A7,"000-")
=TEXT(A10,"000")
复制——粘贴值
=Ph**ONETIC(B1:B4)
=Ph**ONETIC(B7:B10)