匹配两列并获取匹配列下方的值

Question

我在 A 列中有一张数据透视表，在 D 列中有一张普通表。数据透视表将每月更新一次。我想将 A 列的值与 D 列匹配。然后，如果这些值不存在，则 A 列中的值必须位于 D 列的最后一个单元格之下。如果值匹配，则无需复制和粘贴。

我需要如图所示的输出。我使用了下面的公式，但它不起作用。它显示循环引用错误。我在 D13 上使用过它。 我该如何解决。帮帮我

这在 VBA 中是否可行

我使用的Excel公式：

=IF(ISNUMBER(MATCH(A2;$D:$D;0));"";A2)

Answer 1

使用循环引用函数：

转到文件->选项->公式
在计算选项下勾选启用迭代计算
将最大迭代次数设置为 1
在Column D的第一个空白单元格输入以下公式：

=IF(COUNTIF($D$2:INDIRECT(ADDRESS(COUNTA(D:D),4)),A2)=0,A2,"")

向下拖动，直到获得所有需要的值。
请注意，您仍然会有空白单元格，无法在函数范围内删除它们。

使用 VBA 模块：

Option Explicit
Sub AddDict()
    Dim lRow As Long, iCell As Range
    Dim ClmnA As Range, ClmnD As Range
    Dim MySheet As Worksheet, iDict As Object
    '   Your worksheet, change "Test" accordingly
    Set MySheet = ThisWorkbook.Worksheets("Test")
    '   Create dictionary object
    Set iDict = CreateObject("Scripting.Dictionary")
    With MySheet
        '   Last row of the Column "A"
        lRow = .Range("A" & .Rows.Count).End(xlUp).Row
        '   Range of Column "A" values starting from second row (without header)
        Set ClmnA = .Range("A2:A" & lRow)
        '   Last row of the Column "D"
        lRow = .Range("D" & .Rows.Count).End(xlUp).Row
        '   Range of Column "D" values starting from second row (without header)
        Set ClmnD = .Range("D2:D" & lRow)
    End With
    '   Loop through each cell in Column "D"
    For Each iCell In ClmnD.Cells
        '   Add cell value to dictionary (omitting duplicates)
        iDict(iCell.Value) = iCell.Value
    Next
    '   Loop through each cell in Column "A"
    For Each iCell In ClmnA.Cells
        '   Add cell value to dictionary (omitting duplicates)
        iDict(iCell.Value) = iCell.Value
    Next
    '   Populate Column "D" with dictionary items
    MySheet.Range("D2:D" & iDict.Count + 1) = Application.Transpose(iDict.Items)
End Sub