[已解决]关于合并的问题

songxueyi1

今天想尝试一下用PHONETIC解决之前一直存在的某个问题，可是写完公式一直报错，学的一知半解，实在不知道错在哪
请大神指点一下，顺便求一个正确的可实现的公式，如果配合辅助列是很好解决的，我想的是有没有办法通过一个单元格实现

最佳答案

月排行榜 / 总排行榜

心正意诚身修

2021-10-20 16:13

PHOENTIC只支持引用，不支持VALUE，也就是不支持运算。高版本可以用TEXTJION

跳转到最佳答案楼层

cutecpu

PHONETIC 里面不能是公式喔

songxueyi1

cutecpu 发表于 2021-10-20 16:01
PHONETIC 里面不能是公式喔

你好，非常感谢，所以这种表格我只能用辅助列是么，我用的是2007版的

心正意诚身修

PHOENTIC只支持引用，不支持VALUE，也就是不支持运算。高版本可以用TEXTJION

lisongmei

也可以用 ARRAYTOTEXT。所以可以升级一下版本

songxueyi1

lisongmei 发表于 2021-10-20 16:16
也可以用 ARRAYTOTEXT。所以可以升级一下版本

我想的是能通过老版本公式解决的，就尽量用老版本的，毕竟有时候发给客户的话，别人用的也不都是最新版本的，就很容易抓瞎

cutecpu

songxueyi1 发表于 2021-10-20 16:02
你好，非常感谢，所以这种表格我只能用辅助列是么，我用的是2007版的

=SUBSTITUTE(TRIM(A1&" "&B1&" "&C1&" "&D1)," ","、")

songxueyi1

cutecpu 发表于 2021-10-20 16:21
=SUBSTITUTE(TRIM(A1&" "&B1&" "&C1&" "&D1)," ","、")

简单的函数居然就实现了，大神太牛了！

心正意诚身修

1. Function 连接(RNG As Range)
   
2. Dim RG As Range, STR As String
   
3. For Each RG In RNG
   
4. If RG <> "" Then
   
5. STR = STR & RG & ","
   
6. End If
   
7. Next
   
8. 连接 = Left(STR, Len(STR) - 1)
   
9. End Function
   

复制代码

我给你写了个自定义函数。见附件

cutecpu

自求义函数:

Function concat(rng As Range, sep As String)
   concat = Replace(Application.Trim(Join(Application.Transpose(Application.Transpose(rng)), " ")), " ", sep)
End Function


祝順心，南無阿彌陀佛！