id에 대해서만 VBA 연결

Question

고유 ID에 대한 행을 연결해야합니다. 예를 들어

---------- 
id111 a b 
id111 c d 
id222 e 
id222 g h 

---

는 어떻게 특정 ID 만 연결할 수있는, 내가 열에서 비 빈 값을 연결하는 코드 아래 사용

---

id111 ac bd 
id222 eg h 

---

이 필요하십니까?

Dim i As Integer 
Dim j As Integer 
Set Rng = Range("E2:E100") 

For Each c In Rng 
    If c > 0 Then 
     Cells(2, 2) = Cells(2, 2) & c 
    End If 
Next c 

Answer 1

행을 삭제할 수있는 경우 아래에서 위로 이동하십시오.

Option Explicit 

Sub qwewreq() 
    Dim rw As Long 
    With Worksheets("Sheet3") 
     For rw = .Cells(.Rows.Count, "A").End(xlUp).Row - 1 To 2 Step -1 
      If .Cells(rw, "A").Value2 = .Cells(rw + 1, "A").Value2 Then 
       .Cells(rw, "B") = .Cells(rw, "B").Value2 & .Cells(rw + 1, "B").Value2 
       .Cells(rw, "C") = .Cells(rw, "C").Value2 & .Cells(rw + 1, "C").Value2 
       .Rows(rw + 1).EntireRow.Delete 
      End If 
     Next rw 
    End With 
End Sub 

열 E가 나오는 지점은 확실하지 않지만 위의 사항을 조정할 수 있어야합니다.

Answer 2

감사합니다. 각 셀 값 (예 : chr (10)) 뒤에 기호를 추가 할 수 있습니까?

아래 코드를 시도했지만 매크로가 모든 공백 값 다음에이 기호를 추가합니다. 값 뒤에 값을 추가 할 수 있습니까?

.Cells(rw, "AB") = .Cells(rw, "AB").Value2 & Chr(10) & .Cells(rw + 1, "AB").Value2