我想连接单元格的范围和逗号

Question

在一个单元格中，我想连接单元格的范围，直到单元格值变为空白，并且还应该包含逗号。请检查以下代码

Private Sub CommandButton1_Click() 
Dim lastRow As Long 


Sheets("Sheet2").Range("A2").Select 
    lastRow = Range(Selection, Selection.End(xlDown)).count 
    Range("E2").Value = Range("E2:E" & lastRow & "", "").Value 

End Sub 

但是，此代码无法正常工作。请帮助。非常感谢。

Answer 1

我想你应该使用加入函数。
喜欢的东西：

With Sheets("Sheet2") 
    Dim lrow As Long 
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row 
    .Range("E2").Value = Join(Application.Transpose(.Range("E2:E" & lrow)), ",") 
End With 

这将串联E2的值：前并将其放置在E2。 HTH。