excel公式中的智能拆分字符串-全词

Question

How to split string that the words isn't split and result string is max 30 chars?

input cell = 'Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt'

output cell = 'Lorem ipsum dolor sit amet'

I need only formula, not VBA.

Answer 1

Try this:

Non- let function version:

=IF(RIGHT(IF(RIGHT(LEFT(A2,31),1)=" ",LEFT(A2,30),LEFT(A2,FIND("@",SUBSTITUTE(LEFT(A2,30)," ","@",(LEN(LEFT(A2,30))-LEN(SUBSTITUTE(LEFT(A2,30)," ","")))))-1)),1)=",",
LEFT(IF(RIGHT(LEFT(A2,31),1)=" ",LEFT(A2,30),LEFT(A2,FIND("@",SUBSTITUTE(LEFT(A2,30)," ","@",(LEN(LEFT(A2,30))-LEN(SUBSTITUTE(LEFT(A2,30)," ","")))))-1)),LEN(IF(RIGHT(LEFT(A2,31),1)=" ",LEFT(A2,30),LEFT(A2,FIND("@",SUBSTITUTE(LEFT(A2,30)," ","@",(LEN(LEFT(A2,30))-LEN(SUBSTITUTE(LEFT(A2,30)," ","")))))-1)))-1),
IF(RIGHT(LEFT(A2,31),1)=" ",LEFT(A2,30),LEFT(A2,FIND("@",SUBSTITUTE(LEFT(A2,30)," ","@",(LEN(LEFT(A2,30))-LEN(SUBSTITUTE(LEFT(A2,30)," ","")))))-1)))

Office 365 Let function version:

=LET(a,IF(RIGHT(LEFT(A2,31),1)=" ",LEFT(A2,30),LEFT(A2,FIND("@",SUBSTITUTE(LEFT(A2,30)," ","@",(LEN(LEFT(A2,30))-LEN(SUBSTITUTE(LEFT(A2,30)," ","")))))-1)),IF(RIGHT(a,1)=",",LEFT(a,LEN(a)-1),a))

Answer 2

Simpler array formula:

=SUBSTITUTE(TRIM(LEFT(A1,MAX(IF(MID(A1,ROW($1:$30),1)=" ",ROW($1:$30))))),",","")

Array formula after editing is confirmed by pressing ctrl + shift + enter

Answer 3

FILTERXML() may give you best desired result with more option. Try below formula-

=FILTERXML("<t><s>"&SUBSTITUTE(A1,", ","</s><s>")&"</s></t>","//s[string-length(.) <=30]")