Excel VBA를 사용하여 ID와 날짜를 기준으로 열을 연결합니다.

Question

ID와 날짜를 기반으로 Cmnts를 연결해야합니다. 나는

id  Sno Date  Cnt Comnts 

1299 001 4/08/2016 1 A 
1302 001 4/08/2016 1 B 
1642 001 10/08/2015 1 C. 
1642 001 14/08/2015 1 D 
1642 001 21/12/2015 1 1. 
1642 001 21/12/2015 2 2. 
1642 001 16/02/2016 1 3. 
1642 001 8/04/2016 1 T 
1644 001 25/09/2015 1 M 
1747 001 13/09/2016 1 J 
1748 001 13/09/2016 1 O 
1751 001 3/03/2015 1 P 

O/P, 연결하여 아래

id  Sno Date  Cnt Comnts 

1299 001 4/08/2016 1 A 
1302 001 4/08/2016 1 B 
1642 001 10/08/2015 1 C. 
1642 001 14/08/2015 1 D 
1642 001 21/12/2015 1 1. 2. 
1642 001 16/02/2016 1 3. 
1642 001 8/04/2016 1 T 
1644 001 25/09/2015 1 M 
1747 001 13/09/2016 1 J 
1748 001 13/09/2016 1 O 
1751 001 3/03/2015 1 P 

내 매크로 유일한 ID를 기반으로 의견을 매크로를 작성하지만 내 매크로 CONCATENATE의 cmnts은 ID를 기반으로했습니다. 내가 ID와

매크로 날짜를 기준으로 주석을 연결하는 수정할 수있는 방법 :

Private Sub CommandButton1_Click() 

    Dim a, c, i As Long, n As Long 
    With Range("a1").CurrentRegion 
     a = .Value 
     c = .Value2 
     With CreateObject("Scripting.Dictionary") 
      For i = 1 To UBound(a, 1) And UBound(c, 1) 
       If Not .exists(a(i, 1)) And Not .exists(c(i, 1)) Then 
        n = n + 1 
        a(n, 1) = a(i, 1) 
        c(n, 1) = c(i, 1) 
        a(n, 2) = a(i, 2) 
        c(n, 2) = c(i, 2) 
        a(n, 3) = a(i, 3) 
        c(n, 3) = c(i, 3) 
        a(n, 4) = a(i, 4) 
         c(n, 4) = c(i, 4) 
         a(n, 5) = a(i, 5) 
         c(n, 5) = c(i, 5) 
        .Item(a(i, 1)) = n 
        .Item(c(i, 1)) = n 
       Else 
        a(.Item(a(i, 1)), 5) = a(.Item(a(i, 1)), 5) & " " & a(i, 5) 
       End If 
      Next 
     End With 
     .Offset(, .Columns.Count + 1).Resize(n).Value = a 
    End With 
End Sub 

Answer 1

매크로 아래 일부 (동일한 조건 2) secords 및 특정 값 (코멘트)을 연결하여 하나의 그룹에 편리한 방법이다.

Sub Concatenate() 
Application.ScreenUpdating = False 
Application.Calculation = xlCalculationManual 
Dim lrw As Integer 
Dim rgn As Range 

lrw = ActiveSheet().Range("A1").End(xlDown).Row          'last row of your table 
Set rgn = Range("A1:E" & lrw) 
rgn.Select 
ActiveWorkbook.Worksheets("Foglio1").Sort.SortFields.Clear 
ActiveWorkbook.Worksheets("Foglio1").Sort.SortFields.Add Key:=Range("A2:A13") _ 
    , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers '1th order by ID 
ActiveWorkbook.Worksheets("Foglio1").Sort.SortFields.Add Key:=Range("C2:C13") _ 
    , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal   '2th order by date 
ActiveWorkbook.Worksheets("Foglio1").Sort.SortFields.Add Key:=Range("D2:D13") _ 
    , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal   '3th order by cnt 
With ActiveWorkbook.Worksheets("Foglio1").Sort 
    .SetRange rgn 
    .Header = xlYes 
    .MatchCase = False 
    .Orientation = xlTopToBottom 
    .SortMethod = xlPinYin 
    .Apply 
End With 
    For i = 2 To lrw 
     x = Application.WorksheetFunction.CountIfs(Worksheets("Foglio1").Range("E2:E" & lrw), "*", Worksheets("Foglio1").Range("A2:A" & lrw), Cells(i, 1), Worksheets("Foglio1").Range("C2:C" & lrw), Cells(i, 3)) 
     If x > 1 Then 
      cmnts = Cells(i, 5) 
      For J = 1 To x - 1 
      cmnts = cmnts & " " & Cells(i + J, 5) 
      Rows(i + J).Select 
      Selection.ClearContents 
      Next J 
      Cells(i, 5) = cmnts 
     End If 
    Next i 
With ActiveWorkbook.Worksheets("Foglio1").Sort 
    .SetRange rgn 
    .Header = xlYes 
    .MatchCase = False 
    .Orientation = xlTopToBottom 
    .SortMethod = xlPinYin 
    .Apply 
End With 
Application.ScreenUpdating = True 
Application.Calculation = xlCalculationAutomatic 

End Sub 

Answer 2

(당신이 2016 Excel을 사용하는 경우) G2의 배열 수식 아래에 입력

{=CONCAT(IF($A$3:$A$14&$C$3:$C$14=G3&H3,$E$3:$E$14&" ","")} 

당신 것 당신의 결과를 얻으십시오.

이전 버전을 위해, 우리는 아래 UDF

Function ConcatUDF(rng() As Variant, ByVal delim As String) As String 
Dim a, i As Long 
For i = 1 To UBound(rng, 1) 
    If rng(i, 1) <> "" Then 
    ConcatUDF = ConcatUDF & _ 
     IIf(ConcatUDF = "", "", delim) & rng(i, 1) 
    End If 
Next 
End Function 

의 코드이며, 우리는 결과를 얻을 것이다 UDF

{=ConcatUDF(IF($C$3:$C$14&$A$3:$A$14=H3&G3,$E$3:$E$14,"")," ")} 

을 작성해야합니다.