没有OFFICE的CONCAT功能365

Question

我有我的数据，就像在A1：A3的excel中一样。

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

反正有这个合并为一个单元格？

我试过复制和粘贴到word和记事本++，但他们给我这些与他们之间的空白差距。我的想法是在SQL查询中使用这些。

这里的其他问题涉及多行VBA。 Concatenante不起作用如在现实中我使用了一个更大的范围内，那么A1：A3

Answer 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