[已解决]VBA中的CONCATENATE函数怎么找不到？

ycb20010823

想把几个单元格中的数据连接起来，想到了工作中函数CONCATENATE，为什么在VBA中调用工作函数CONCATENATE这个就没有了呢？请问一下，VBA中连接几个单元格中的数据用什么公式？谢谢各位老师！！

最佳答案

月排行榜 / 总排行榜

苏子龙

2016-9-25 23:14

ycb20010823 发表于 2016-9-25 20:21
我想要这样的效果，在VBA中里写代码实现，你看看，Str = Evaluate("CONCATENATE(""1"", k1,h" & x & ")") ...

自己试试就知道怎么做了！

跳转到最佳答案楼层

苏子龙

可以直接用&符号连接，若实在喜欢用函数CONCATENATE，就加application.worksheetfunction.concatenate(...)

ycb20010823

苏子龙 发表于 2016-9-25 19:32
可以直接用&符号连接，若实在喜欢用函数CONCATENATE，就在它前面加application.workfunction,

连接的多个单元格内容是在VBA中的一个变量，你说的用application.workfunction是出现错误提示的，没有这个工作表函数！

苏子龙

ycb20010823 发表于 2016-9-25 19:36
连接的多个单元格内容是在VBA中的一个变量，你说的用application.workfunction是出现错误提示的，没有这 ...

真的不好用，sorry，这个函数基本上是废物函数，直接用&，简单多了！
现在变通下，用这样：
Str = Evaluate("CONCATENATE(""1"", k1,h" & x & ")")
第一个是常量，第二个是直接单元格，第三个是单元格和变量组合

ycb20010823

苏子龙 发表于 2016-9-25 19:51
真的不好用，sorry，这个函数基本上是废物函数，直接用&，简单多了！
现在变通下，用这样：
Str =  ...

我想要这样的效果，在VBA中里写代码实现，你看看，Str = Evaluate("CONCATENATE(""1"", k1,h" & x & ")")这个公式怎么改写一下，没有看明白你的意思，谢谢了，苏子龙朋友！

ycb20010823

没有老师出来指导一下了吗？

苏子龙

ycb20010823 发表于 2016-9-25 20:21
我想要这样的效果，在VBA中里写代码实现，你看看，Str = Evaluate("CONCATENATE(""1"", k1,h" & x & ")") ...

自己试试就知道怎么做了！

ycb20010823

网上打到的代码，转成一维数组，就可以用VBA中的join函数了！分享一下

Sub 连接函数()
Dim arr
arr = Application.Transpose(Application.Transpose(Range("b2:i2"))) '转成一维数组才能合并
Range("j2") = VBA.Join(arr, "")

End Sub