具有动态列号索引的Vlookup

Question

我需要有关col_index_num的帮助，有时它可能出现在第4列上，而其他时候可能出现在第8列上，有时会有所不同。找到其值后，我需要返回活动单元格的列数。整个代码很可能是错误的。但是在VLookup函数上，您可以了解正在尝试存档的内容。

    Dim pn As Range
    Dim ws As Worksheet
    Dim cn As Long

Worksheets("Entities").Activate
Cells.Find(What:="Part Number", After:=ActiveCell, LookIn:=xlFormulas2, _
    LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=True, SearchFormat:=False).Activate

    Set pn = ActiveCell
    Set cn = Active.column

Worksheets("Relationships").Activate
Range("P3").Formula = "=VLOOKUP(C2,Entities!$D:PN,cn,0)"

在