[已解决]求助：在R列写入公式，带空 ...

水木

求助：在R列写入公式，带空格合并A：Q数据。.rar (8.37 KB, 下载次数: 4)

2015-12-14 19:33 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

橘子红

2015-12-14 20:07

或者

1. Function hebing(rng As Range)
   
2. hebing = Trim(Join(Application.Transpose(Application.Transpose(rng)), " "))
   
3. End Function

复制代码

跳转到最佳答案楼层

爱疯

如果A:Q的内容中不存在有数字的数据，如果数据之间不要空格，才可用r2=PHONETIC(A2:Q2)

个人懒得为了数据之间留1个空格，费劲折腾。。。。

水木

爱疯 发表于 2015-12-14 19:47
如果A:Q的内容中不存在有数字的数据，如果数据之间不要空格，才可用r2=PHONETIC(A2:Q2)

个人懒得 ...

谢谢老师！正是因为A:Q的内容中存在有数字的数据，所以要求有空格。

橘子红

1. Function hebing(rng As Range)
   
2. Dim arr, x%, st$
   
3. arr = rng
   
4. For x = 1 To UBound(arr, 2)
   
5.     st = st & " " & arr(1, x)
   
6. Next
   
7. hebing = Trim(st)
   
8. End Function
   

复制代码

橘子红

或者

1. Function hebing(rng As Range)
   
2. hebing = Trim(Join(Application.Transpose(Application.Transpose(rng)), " "))
   
3. End Function

复制代码