지정된 값의 셀 사이에서 행을 어떻게 연결합니까?

Question

VBA를 사용하여 지정된 두 행 사이의 모든 것을 연결하려고합니다. 이것에 대해 가장 좋은 방법은 무엇입니까?

기본적으로 세 번째 셀이 "U"인 행을 그대로두고 그 행의 여섯 번째 셀을 아래 행의 연결로 만들고 "U"가 포함 된 다른 행을 실행할 때까지 기다립니다. 세 번째 셀. 그런 다음 프로세스가 반복됩니다. "U"를 포함하는 셀 사이의 행 수는 다양합니다.

그림이

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 

를?