没有OFFICE 365的CONCAT功能

时间:2017-07-26 20:08:36

标签: excel excel-vba vba

我的数据是这样的,在A1:A3 in excel。

stack',' over',' flow','

无论如何将它组合成一个单元格?

我已经尝试过复制并粘贴到word和notepad ++,但是他们给了我这些与它们之间的空隙。我的想法是在SQL查询中使用它们。

此处的其他问题将VBA视为多行。 Concatenante不能像现实一样使用更大的范围然后A1:A3

1 个答案:

答案 0 :(得分:1)

如果你有CONCAT()函数:

=CONCAT(A1:A3)

如果不是:

= A1 & A2 & A3

如果您没有CONCAT,请将此UDF放入模块中并使用上述公式:

 Function CONCAT(rng As Range)
 Dim rngArr As Variant
 Dim i As Long, j as long
 rngArr = rng.Value
 For i = LBound(rngArr, 1) To UBound(rngArr, 1)
    For j = LBound(rngArr, 2) To UBound(rngArr, 2)
        CONCAT = CONCAT & rngArr(i, j)
    Next j
 Next i
 End Function