如何在指定值的单元格之间连接行？

Question

我正在尝试使用VBA连接两个指定行之间的所有内容。什么是最好的方法呢？

基本上我想留下第三个单元格“U”完整的行，并使该行的第六个单元格成为下面行的串联，直到我们遇到第三个单元格中包含“U”的行细胞。然后这个过程会重复。包含“U”的单元格之间的行数是变化的。

Pic低于

Answer 1

好的，这应该有用（虽然没有经过测试）：

Sub My_Amazing_Skills()
Dim l As Long, i As Long

l = 1
i = 1
Do Until i > Range("A1048576").End(xlUp).Row
    If Range("C" & l).Value = "U" Then
        i = i + 1
        Do Until Range("C" & i).Value = "U"
            Range("F" & l).Value = Range("F" & l).Value & " " & Range("C" & i).Value
            i = i + 1
        Loop
        Range("F" & l).Value = Trim(Range("F" & l).Value)
    End If
    l = i
Loop

MsgBox "Bow down to the great Jeremy!", vbInformation, "Your concatenating is done"

End Sub

我猜你知道知道把它复制到哪里吗？