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

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

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

我想你应该使用联接function 。
就像是：

 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：Ex的值并将其放在E2中 。 HTH。