有没有办法在VBA中连接？

Question

有没有简单的方法来连接VBA中的多个单元格？

下面

串联类似的功能（A1， “ - ”，B1）

谢谢！

Answer 1

尝试使用“&”

cells(1,1).value = cells(1,2) & "-" & cells(1,3) 

Answer 2

你也可以使用Join()功能

这是一个有点棘手，因为它需要一个“一维数组”您使用Application.Transpose()功能

得到

但是当你需要连接多个单元格时，它非常方便，从而为你节省了大量的打字工作，并且可以利用所有的Range个对象的属性和状Offset()方法（在循环中非常有用），Resize()等

例如

1行范围

'_direct_ range reference 
Join(Application.Transpose(Application.Transpose(Range("A1:B1").Value)), "-") 

'_offsetted_ range reference 
Join(Application.Transpose(Application.Transpose(Range("A1:B1").Offset(i).Value)), "-") '<-- offset "i" rows 

1列范围

'_direct_ range reference 
Join(Application.Transpose(Range("A1:A2").Value), "-") 

'_offsetted_ range reference 
Join(Application.Transpose(Range("A1:A2").Offset(i).Value), "-") '<-- offset "i" rows