특정 기준이 충족 될 때 여러 행의 데이터를 결합하는 방법

^{클릭하면 확대}

이 Excel 문서를 마사지하려고합니다. AdminTime열 (Column  H)을 제외하고 동일한 연속 행 그룹이 있습니다. 연속 행 그룹이 LastRxNo(Column  C)에 대해 동일한 값을 갖는 경우 Column 이외의 행이 동일하다는 것을 알고  H있습니다. 그룹의 행을 하나의 행으로 결합하고 그룹의 모든 행 AdminTime의 AdminTime값을 포함하는 열 을 쉼표로 구분 하여 결합하고 싶습니다 .

여기에 내가 원하는 모습의 사진이 있습니다.

^{클릭하면 확대}

어떤 아이디어? IF 함수를 생각하고 있었지만 Excel에 익숙하지 않아 작동하지 못했습니다.

Excel의 Microsoft Query 도구를 사용하여 SQL 테이블에서 모든 것을 가져옵니다. 다음은 쿼리입니다.

행으로 표시되는 것이 아니라 열로 표시되지만이 데이터로 피벗 테이블을 만들 수 있습니다. 즉, 모든 데이터, 삽입> 피벗 테이블을 선택하고 PatID, LastRxNo 및 Admintime을 피벗 테이블의 "행 레이블"영역으로 드래그하고 총계 또는 소계를 숨기십시오 (사진을 게시하지만 내 평판은 아직 여기에서 충분히 높습니다-내 first post!) 다음과 같은 피벗 테이블을 만듭니다 (내 게시물에 올바르게 표시되는지 확실하지 않음) : 855 87160 6AM 2PM 10PM (등)

또는 선택문에서 SQL 쿼리를 변경하여 하나의 셀에 전체 이름을 리턴하는 경우 (Select ......., Patients.PatLName + ','+ Patients.PatFname, ........) 피커가 숫자가 아닌 전체 환자 이름을 반환하도록 할 수 있습니다. Parker, Corde 87160 6AM 2PM 10PM 등

원래 요청한 것과 똑같은 형식이 아닐 수도 있지만 읽기 쉬운 것 같습니다 (메드를 관리했을 때 확인하기 위해 사용한다고 가정)?

코드에 개수를 추가하는 열을 만듭니다.

= B5 & ""& COUNTIF ($ B $ 2 : $ B5, B5)

그런 다음 각 개별 항목을 조회하고 d2의 수식이되는 텍스트를 연결할 수 있습니다.

= IF ($ B2 & ""& 1 = D2, INDEX (C : C, MATCH ($ B2 & ""& 1, D : D, 0)) & ""& IFERROR (INDEX (C : C, MATCH ($ B2 & ""& 2 , D : D, 0)), "") & ""& IFERROR (INDEX (C : C, MATCH ($ B2 & ""& 3, D : D, 0)), "") & ""& IFERROR (INDEX (C : C, MATCH ($ B2 & ""& 4, D : D, 0)), ""), "")

각각의 가능성 당신은 추가해야합니다 &" "&IFERROR(INDEX(C:C,MATCH($B5&" "&5,D:D,0)),"")곳 &5이 될 &6등 위의 공식은 4 개 인스턴스에 뻗어있다.

이것은 여전히 ​​많은 할 일을 남기는 다소 빠르고 지저분한 매크로이지만 아이디어를 얻을 수 있습니다. 또한 원본 시트 ( "Sheet1")가 LastRxNo로 정렬되어 있다고 가정합니다. SQLServer에서 함수를 추가하고 호출하는 기능이 있으면 더 간단하고 오류가 적은 작업이됩니다. 이것이 당신이 시작하는 데 도움이되기를 바랍니다. "요약"이라는 시트로 출력합니다.

Sub conCatTimes()
Dim rx As String
Dim admTimes As String
Dim tmp As String
Dim i As Long
Dim LastRow As Long
LastRow = Sheets("Sheet1").Range("C" & ActiveSheet.Rows.Count).End(xlUp).Row
rx = ""
i = 1
For Each cell In Sheets("Sheet1").Range("C2:C" & LastRow)
    If rx <> cell Then
        rx = cell
        i = i + 1
        tmp = ""
    End If
tmp = cell.Offset(0, 11)
admTimes = admTimes + tmp + ", "
    If cell.Offset(1, 0) <> rx Then
        Sheets("summary").Range("A" & i) = rx
        Sheets("summary").Range("B" & i) = Left(admTimes, Len(admTimes) - 2)
        admTimes = ""
    End If
Next

End Sub

매크로를 사용하여 테이블의 내용을 동일한 테이블에 복사하고 AdminTime 열을 무시하면서 중복 값을 필터링 한 다음 원래 테이블을 반복하여 동일한 값을 찾고 모든 AdminTime 값을 단일로 결합하는 것이 좋습니다 끈. 아래 코드에서, 특히 테이블을 정의하고 고유 값으로 필터링하는 경우 필요에 따라 약간 조정해야합니다. 또한 AdminTime이 테이블의 마지막 열이며 그렇지 않을 수도 있다고 가정했습니다.

Option Explicit

Sub combineAdminTimes()

    'Declarations
    Dim tbl1 As ListObject  'Original table
    Dim tbl2 As ListObject  'Abbreviated table
    Dim arrColumns()        'Array of column numbers in which to search for duplicate values
    Dim rcd1 As ListRow     'Generic list row in original table
    Dim rcd2 As ListRow     'Generic list row in abbreviated table
    Dim i As Long           'Generic counter
    Dim blnMatch As Boolean 'Whether or not the two records match and should be combined
    Dim s As String         'String in which to store the combined result

    'Initialize
    Set tbl1 = Sheet1.ListObjects(1)
    Set tbl2 = Sheet2.ListObjects(1)

    'Clear the old filtered list
    If Not tbl2.DataBodyRange Is Nothing Then tbl2.DataBodyRange.Rows.Delete

    'Copy the unfiltered list
    tbl1.DataBodyRange.Copy tbl2.Range(2, 1)

    'Remove all duplicate values
    tbl2.Range.RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7), Header:=xlYes

    'Loop through records in abbreviated table
    For Each rcd2 In tbl2.ListRows
        s = ""
        'Loop through records in original table
        For Each rcd1 In tbl1.ListRows
            'Check if any fields in the two records do not match
            blnMatch = True
            For i = 1 To tbl1.ListColumns.Count - 1
                If rcd1.Range(1, i).Value <> rcd2.Range(1, i).Value Then blnMatch = False
            Next

            'If all matched, then add the time value to the string
            If blnMatch Then
                If LenB(s) > 0 Then s = s & ", "    'Separate each entry by a comma
                s = s & tbl1.ListColumns("AdminTime").Range(rcd1.Range.Row, 1).Value
            End If
        Next

        'Finally, store the combined string in the abbreviated table
        tbl2.ListColumns("AdminTime").Range(rcd2.Range.Row, 1).Value = s
    Next

End Sub

이를 위해 Power Query Add-In을 사용합니다. 코드 줄을 쓰지 않고도이 작업을 수행 할 수 있다고 생각합니다.

먼저 Duplicate Column 명령을 사용하여 AdminTimes 열을 복제합니다. 그런 다음 Pivot 명령을 사용하여 AdminTimes 데이터를 열로 변환합니다.

https://support.office.com/en-US/Article/Pivot-columns-abc9c8da-3be9-44c4-886e-0be331ab387a?ui=en-US&rs=en-US&ad=US

피벗 정의에서 값 열을 이전에 만든 "AdminTimes의 복사본"열로 설정하고 총계 값 기능을 "집계하지 않음"으로 설정했습니다. 다른 모든 열별로 자동으로 그룹화됩니다.

그런 다음 열 병합 명령을 사용하여 생성 된 새 열을 하나로 결합합니다. 사용자 정의 구분 기호 인 ","(쉼표, 공백)을 사용하여 프레젠테이션을 가져옵니다.