我想连接单元格范围并包含逗号

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