두 개의 다른 통합 문서에서 문자열 비교

Question

VBA를 사용하여 Excel에서 두 통합 문서의 사용자 이름을 비교해야합니다. 어떻게하면됩니까? 통합 1에서

• 가
  : 열 A는 통합 2 10 명
• 포함되어 예를 들어

  열 A는 I 칼럼 B의 셀을 가질 필요가 10 명

포함 각 통합 문서는 경기에 따라 녹색 또는 빨간색으로 표시됩니다.

Answer 1

나는이 같은 것을 의미한다고 생각하지만 항상 신중해야합니다. 아래 코드는 작동하지만 범위를보다 동적으로 설정하려고 할 것입니다.

Option Explicit 
Sub Compare_Names() 

Dim oBook_1    As Excel.Workbook 
Dim oBook_2    As Excel.Workbook 
Dim oRange_1   As Range 
Dim iRange_1_Rows  As Integer 
Dim oRange_2   As Range 
Dim iRange_2_Rows  As Integer 

Dim vArray    As Variant 
Dim vArray_Found  As Variant 
Dim iCnt    As Integer 
Dim iCnt_B    As Integer 


Application.ScreenUpdating = False 
Application.DisplayAlerts = False 

Set oBook_1 = Workbooks.Open("U:/Names_1.xls") 
    Set oRange_1 = oBook_1.Sheets(1).Range("A1:A5") 'Can be dynamically set when needed 
    iRange_1_Rows = oRange_1.Rows.Count 
    ReDim vArray(1 To iRange_1_Rows, 1 To 1) 
    vArray = oRange_1 
    Set oRange_1 = Nothing 
oBook_1.Close 
Set oBook_1 = Nothing 

Set oBook_2 = Workbooks.Open("U:/Names_2.xls") 
    Set oRange_2 = oBook_2.Sheets(1).Range("A1:A5") 
    iRange_2_Rows = oRange_2.Rows.Count 
    For iCnt = 1 To iRange_1_Rows 
     For iCnt_B = 1 To iRange_2_Rows 

      ReDim vArray_Found(1 To iRange_2_Rows, 1 To 1) 

      If Trim(vArray(iCnt, 1)) = Trim(oRange_2(iCnt_B)) Then 
       oRange_2(iCnt_B).Interior.Color = vbGreen 
       vArray(iCnt_B, 1) = True 
      End If 
     Next iCnt_B 
    Next iCnt 

    For iCnt = 1 To iRange_2_Rows 
     If vArray(iCnt, 1) <> True Then 
      oRange_2(iCnt).Interior.Color = vbRed 
     End If 
    Next iCnt 

    Set oRange_2 = Nothing 
oBook_2.Save 
oBook_2.Close 
Set oBook_2 = Nothing 

End Sub 

가 아닌 대소 문자를 구분 비교를 원하는 경우에 당신은 사용할 수 있습니다

if UCase(Trim(vArray(iCnt, 1))) = UCase(Trim(oRange_2(iCnt_B))) Then