单元格值的输出连接

Question

我正在尝试将从代码中获取的单元格值连接到一个单元格中，而不是将其写入所有单元格中。

你能帮帮我吗？这是代码

Public Sub test()

Dim ws As ThisWorkbook
Set ws = ThisWorkbook
Dim i As Integer
Dim lr62, lr210, lr106 As Integer

Row = 2
Application.ScreenUpdating = True


cluster = Sheet2.Cells(2, 1)
Row = 1
For Each lr62 In Sheet1.Range("B2:B700")

If lr62 Like cluster Then

cellvalue = Sheet1.Cells(lr62.Row, 3)
cellvalue = cellvalue & ","
Row = Row + 1

Sheet2.Cells(Row, 8).Value = cellvalue
End If
Next lr62


End Sub

输出获取：

A
B
C
D

想要输出：

A、B、C、D

谢谢

Answer 1

每次运行lr62 循环时，都会执行这一行：

Row = Row + 1

导致这一行的原因：

Sheet2.Cells(Row, 8).Value = cellvalue

在不同的行上显示cellvalue 的当前值。

删除Row = Row + 1，它会按你的意愿工作。