vba - 2 つの異なるブックの文字列を比較する

Question

VBA を使用して Excel で 2 つのワークブックのユーザー名を比較する必要があります。どうやってこれを行うのですか？

例えば ​​：

• ワークブック 1 : 列 A には 10 個の名前が含まれています
• ワークブック 2 : 列 A には 10 個の名前が含まれています

一致に基づいて、各ワークブックの列 B のセルを緑または赤に色付けする必要があります。

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