我在Excel中有一列数据。我想遍历数据并将内容组合成一个字符串。我可以指定单元格范围，但是如果范围未知，该怎么办。我希望能够循环播放，直到单元格变空。这是我到目前为止所拥有的。
Sub ConcatenationLoop()
Dim rng As Range, i As Integer
Set rng = Range("A1", "A5")
For i = 1 To rng.Rows.Count
With Range("B1")
If .Value = "" Then
.Value = rng.Range("A" & i)
Else
.Value = .Value & ", " & rng.Range("A" & i)
End If
End With
Next
是否可以与以下内容结合使用：
Do Until IsEmpty(ActiveCell)
非常感谢您的帮助！
结束子
With Worksheets("YourSheetName")
lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
将其循环到LastRow。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句