添加到現有字符串值

因此，在文檔中，我希望將一列字母轉換爲單個單元格。例如，如果該列包含字母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

在小區放

來源

2017-09-15 Sooner2

辦公室365 exel：'= CONCAT（B1：B5）' –

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)

來源

2017-09-15 16:19:16

但是，如果要添加分隔符，則捨棄空白將會很合適。 – Jeeped

沒有必要使用VBA進行這個。 Excel內置函數CONCATENATE()。

使用這樣的：

在您需要的輸出輸入公式

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

所以，你可以選擇所有要加入的單元的單元。在每個單元之間插入一個逗號。

來源

2017-09-15 16:33:02

添加到現有字符串值

回答

相關問題