excel组合文本的函数

发布网友发布时间：2022-04-23 13:08

我来回答

共3个回答

热心网友时间：2023-10-14 21:48

自定义函数 zuhe(arg,brg,fengefu)

function zuhe(byval Arg as string,byval Brg as string ,fengefu as string) as string

dim str$,arr,brr,i,j

arr=split(arg,fengefu)

brr=split(brg,fengefu)

for each i in arr

for each j in brr

str=str & i & "=" & j & "==0=500=0=0=0=" & chr(10)

zuhe=str

end function

c1的公式为=zuhe(a1,b1,",")

ps：百度眼睛睁大点，被你们删怕了

热心网友时间：2023-10-14 21:48

这种需要写代码才能实现

热心网友时间：2023-10-14 21:49

又去组合文本所在的单元格，选择设置单元格格式，在第二个标签，也就是对其标签中勾选文本控制下的自动换行，然后确定。接着，在这个单元格中输入下面的公式就可以了（假设前两个分别在a1和b1单元格中）。
=LEFT(A1,5)&"="&LEFT(B1,1)&"==0=500=0=0=0="& CHAR(10) & LEFT(A1,5)&"="&MID(B1,3,1)&"==0=500=0=0=0="& CHAR(10) & LEFT(A1,5)&"="&MID(B1,5,2)&"==0=500=0=0=0="& CHAR(10) & LEFT(A1,5)&"="&MID(B1,8,3)&"==0=500=0=0=0="& CHAR(10) & RIGHT(A1,4)&"="&MID(B1,3,1)&"==0=500=0=0=0=" & CHAR(10) & RIGHT(A1,4)&"="&LEFT(B1,1)&"==0=500=0=0=0="& CHAR(10) & RIGHT(A1,4)&"="&MID(B1,3,1)&"==0=500=0=0=0="& CHAR(10) & RIGHT(A1,4)&"="&MID(B1,5,2)&"==0=500=0=0=0="& CHAR(10) & RIGHT(A1,4)&"="&MID(B1,8,3)&"==0=500=0=0=0="& CHAR(10)

热心网友时间：2023-10-14 21:48

自定义函数 zuhe(arg,brg,fengefu)

function zuhe(byval Arg as string,byval Brg as string ,fengefu as string) as string

dim str$,arr,brr,i,j

arr=split(arg,fengefu)

brr=split(brg,fengefu)

for each i in arr

for each j in brr

str=str & i & "=" & j & "==0=500=0=0=0=" & chr(10)

zuhe=str

end function

c1的公式为=zuhe(a1,b1,",")

ps：百度眼睛睁大点，被你们删怕了

热心网友时间：2023-10-14 21:48

这种需要写代码才能实现

热心网友时间：2023-10-14 21:49