添加到现有的string值

所以在文档中，我希望将一列字母转换为一个单元格。 例如，如果列中包含字母h，e，l，l，o那么程序将放入一个单元格“hello”。 我试图用下面的代码做到这一点，但它留下输出单元格为空

Dim t1 As String Dim t2 As String Do While Cells(i, "B").Value <> "" t2 = Cells(i, "D").Value t1 = Cells(i, "B").Value Cells(i, "D").Value = t1 & t2 i = i + 1 Loop 

Answer 1

 Function MyConcat(rng as range) dim rngEach as Range For Each rngEach in rng MyConcat = MyConcat & rngEach.Value Next rngEach End Function 

然后在细胞里放： =MyConcat(B1:B5)

Answer 2

没有必要为此使用VBA。 Excel内置函数CONCATENATE() 。

像这样使用它：

在需要输出的单元格中input公式

 =CONCATENATE(Select cell 1, select cell2,select cell3) 

所以你可以select你想要join的所有单元格。 在每个单元格之间放一个逗号。