vba - 交叉引用文档的 VLookup

Question

我有一个带有交叉引用的 Excel 电子表格，它在行和列中有文档编号，当一个文档引用另一个文档时，我在与两者相对应的单元格中放了一个小 X。



我想要做的是创建一个查找函数，其中有人输入一个文档编号，它沿着该文档编号的行进行搜索，并且在任何有 X 的地方读取该列的文档编号是什么(将在第 1 行)然后它返回所有引用的文档编号。

我对 Excel/VBA 完全陌生，想知道是否有人能指出我正确的方向。

谢谢!

Answer 1

对不起我的凌乱脚本，但这可能是你所追求的。

Function RefDocs(r As Range, c As Range, x As Range) As String
'   Generates a list of references for X

'   Variables
'   r - range for the vertical IDs (e.g. A2:A16)
'   c - range for horizontal IDs (e.g. B1:P1
'   x - the cell you've got the document ID you're cross referencing

    Dim lOffset As Long
    Dim rg As Range, rFind As Range

        Set rFind = r.Find(What:=x.Value)

        If rFind Is Nothing Then Exit Function

        lOffset = rFind.Row - c.Row

        With r.Parent
            For Each rg In c
                If rg.Offset(lOffset, 0).Value = "X" Then
                    RefDocs = RefDocs & .Cells(c.Row, rg.Column).Value & "; "
                End If
            Next rg
        End With
End Function