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

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 

我想你知道知道这个复制到？