是否可以比较 excel 中的两列并使用 VBA 更新主列？

Question

我的 Excel 工作簿中有两张工作表。 这些表中包含的是我的主键列。 我想使用 VBA 循环将第一列（主列）与第二列（源）进行比较。 原因是源通常包含新的主键。 请任何人都可以帮助我找出比较这些列并将唯一值添加到主列的逻辑。 谢谢。

this image shows the sample master code
this image shows the sample source code

下面的代码显示了我到目前为止所拥有的

Sub PullUniques()
Dim rngCell As Range
For Each rngCell In Sheet1.Range("W3:W40")
    If WorksheetFunction.CountIf(Range("D3:D40"), rngCell) = 0 Then
        Range("C" & Rows.Count).End(xlUp).Offset(1) = rngCell
    End If
Next
For Each rngCell In Sheet6.Range("D3:D40")
    If WorksheetFunction.CountIf(Range("W3:W40"), rngCell) = 0 Then
        Range("W" & Rows.Count).End(xlUp).Offset(1) = rngCell
    End If
Next

结束子

Answer 1

请试试这个代码。它基于以下假设：在源工作表中可能存在“主”工作表中不存在的键，这些键将添加到主工作表的第一个空行。

Sub testMasterUpdate()
  Dim shM As Worksheet, shS As Worksheet, s As Long, boolF As Boolean
  Dim lastRM As Long, lastRS As Long, m As Long
  Dim arrM As Variant, arrS As Variant, arrDif As Variant, d As Long

  Set shM = Worksheets("Master") 'please, use here your sheet name
  Set shS = Worksheets("Source") 'please, use here your sheet name
   lastRM = shM.Range("A" & Cells.Rows.Count).End(xlUp).Row
   lastRS = shS.Range("A" & Cells.Rows.Count).End(xlUp).Row
   arrM = shM.Range("A2:A" & lastRM).value
   arrS = shS.Range("A2:A" & lastRS).value
   ReDim arrDif(1 To 1, 1 To UBound(arrM) + UBound(arrS)): d = 1

   For s = 1 To UBound(arrS)
        For m = 1 To UBound(arrM)
            If arrS(s, 1) = arrM(m, 1) Then
                boolF = True
                Exit For
            End If
        Next m
        If Not boolF Then
            arrDif(1, d) = arrS(s, 1)
            d = d + 1
        End If
        boolF = False
   Next s
   If d > 1 Then
     ReDim Preserve arrDif(1 To 1, 1 To d - 1)
     'shM.Range("A" & lastRM + 1).Resize(UBound(arrDif, 2), 1).value = _
                                    WorksheetFunction.Transpose(arrDif)
     shM.Range("A" & lastRM).Resize(UBound(arrDif, 2), 1).value = _
                                WorksheetFunction.Transpose(arrDif)
     lastRM = shM.Range("A" & Cells.Rows.Count).End(xlUp).Row
     shM.Range("A" & lastRM + 1).Formula = "=CountA(A2:A" & lastRM & ")"
   End If
End Sub

请用您的真实名称替换通用工作表名称。