두 개의 다른 시트의 텍스트 병합

Question

통합 문서에서 두 시트의 특정 값이 일치하는 경우 두 개의 다른 시트의 텍스트를 병합하는 방법을 알아 보겠습니다.

지연 및 DRG 두 장이 있습니다. "DRG"Col E의 텍스트를 "지연 시간"시트 Col P로 병합하려고합니다 (행에 텍스트가 이미있을 수 있지만 "DRG"Col E의 텍스트는 세미콜론과 병합해야합니다).

예 : 아래의 코드는 일치 작업을 수행하고 COL O의 특정 텍스트를 업데이트합니다.이 코드와 함께 병합 부분을 추가하려고합니다. "대기 시간"의 col A와 "DRG"의 Col B가 일치하는 경우 텍스트 "DRG"의 Col E는 "대기 시간"시트의 Col P (해당 행)에 병합되어야합니다.

더 좋은 방법은 환영합니다.

Sub PassFailValidation() 

Dim Rng As Range, cl As Range 
Dim LastRow As Long, MatchRow As Variant 

With Sheets("DRG") 
    LastRow = .Cells(.Rows.count, "C").End(xlUp).Row '<-- find last row with data in column C 
    Set Rng = .Range("C2:C" & LastRow) '<-- set range in Column C 
End With 

With Sheets("Latency") 
    For Each cl In .Range("B2:B" & .Cells(.Rows.count, "B").End(xlUp).Row) ' loop through all cells in Column B 
     MatchRow = Application.Match(cl.Value, Rng, 0) ' find match with values in Colummn C as in "DRG" sheet 
     If Not IsError(MatchRow) Then ' <-- successful match 

      Select Case Sheets("DRG").Range("D" & MatchRow + 1).Value 'Set D as the cell whch has the value 
       Case "Approved" 
        .Range("O" & cl.Row).Value = "Pass" 

       Case "Pended" 
        .Range("O" & cl.Row).Value = "Fail" 

       Case "In progress" 
        .Range("O" & cl.Row).Value = "In progress" 
      End Select 
     End If 
    Next cl 
End With 

최종 하위

Answer 1

이 단지 추가 참조 : 당신은 몇 가지 테스트 데이터를 가지고 있습니까

Sub PassFailValidation() 

    Dim Rng As Range, cl As Range 
    Dim LastRow As Long, MatchRow As Variant 

    With Sheets("DRG") 
     LastRow = .Cells(.Rows.Count, "C").End(xlUp).row '<-- find last row with data in column C 
     Set Rng = .Range("C2:C" & LastRow) '<-- set range in Column C 
    End With 

    With Sheets("Latency") 
     For Each cl In .Range("B2:B" & .Cells(.Rows.Count, "B").End(xlUp).row) ' loop through all cells in Column B 
      MatchRow = Application.Match(cl.Value, Rng, 0) ' find match with values in Colummn C as in "DRG" sheet 
      If Not IsError(MatchRow) Then ' <-- successful match 
       Select Case Sheets("DRG").Range("D" & MatchRow + 1).Value 'Set D as the cell whch has the value 
        Case "Approved" 
         .Range("O" & cl.row).Value = "Pass" 

        Case "Pended" 
         .Range("O" & cl.row).Value = "Fail" 

        Case "In progress" 
         .Range("O" & cl.row).Value = "In progress" 
       End Select 
       If Not Sheets("DRG").Range("E" & MatchRow + 1).Value = vbNullString Then .Range("P" & cl.row).Value = .Range("P" & cl.row).Value & IIf(Not .Range("P" & cl.row).Value = vbNullString, ";", "") & Sheets("DRG").Range("E" & MatchRow + 1).Value 
      End If 
     Next cl 
    End With 

End Sub 

Answer 2

나는이 질문이 멋진 VBA 코딩 답변을 끌 것이라 확신합니다. 그러나 데이터베이스 엔진 기술을 사용하여 이러한 종류의 문제를 해결할 수 있습니다. 우선 https://support.microsoft.com/en-gb/help/278973/excelado-demonstrates-how-to-use-ado-to-read-and-write-data-in-excel-workbooks