0

我正在尝试将一个工作表中的 2 列与另一个工作表中的 2 列（或可能更多）进行匹配。

我已经发布了我的工作表数据样本，希望能很好地描述我过去一周一直在尝试做的事情。我认为我在正确的轨道上，但我不知道如何在两个工作表之间正确引用。

我想做的是查看位置 1 列，然后查看该位置是否与位置 1 或位置 2 中的我的 RefSheet 引用。

如果是这样，我想看看位置 2 是否在 RefSheet 的同一行的某处匹配。如果匹配，我想突出显示单元格/单元格黄色并提供 RefSheet 中的 ID 号。

如果没有匹配，我想将其突出显示为红色或不突出显示。

Sheet All
A       B               C               D
ID  Location 1  Location 2  Given ID
1   West    North   
2   North   South   
3   South   East    
4   East    West    
5   East    East    
6   South   West




Sheet RefSheet
A       B               C   
ID  Location 1     Location 2
1   West            North
2   West            East
3   South           East
4   South           North



What it should look like on the original Worksheet
A               B               C           D
ID          Location 1  Location 2      Given ID
1(Yellow)   West            North           1
2(Yellow)   North           South           4
3(Yellow)   South           East            3
4(Yellow)   East            West            2
5(Red)      East            East    
6(Red)      South           West

这是我可怕的代码

    Sub roadfinder()

    Dim lngLast As Long
    Dim lngCounter As Long
    Dim rCell As Range
    Dim lCnt As Long
    Dim nextIntersection
    Dim RefSheet As Worksheet
    Dim list As Worksheet

    Set intersections = ThisWorkbook.Sheets("RefSheet")
    Set crashes = ThisWorkbook.Sheets("All")


    Application.ScreenUpdating = False
    lngLast = Cells(Rows.Count, "B").End(xlUp).Row
    For lngCounter = 2 To lngLast
        With Cells(lngCounter, "B")

            For Each rCell In RefSheet.Range("B1", RefSheet.Cells(RefSheet.Rows.Count, 1)).Cells
            lCnt = lCnt + 1

                'I wasn't sure what to put as a reference to
                If .Value = "" Then
                    .Interior.ColorIndex = 6

                End If

            Next rCell
        End With
    Next lngCounter

    Application.ScreenUpdating = True

End Sub
4

1 回答 1

0

实际上，无需任何编程，只需一个简单的 excel 公式即可轻松完成。只需将以下作为数组公式的给定 ID 放入列的单元格 2 ：

=SUM(SIGN((B2=Refsheet!$B$2:$B$5)*(C2=Refsheet!$C$2:$C$5)+(B2=Refsheet!$C$2:$C$5)*(C2=Refsheet!$B$2:$B$5))*Refsheet!$A$2:$A$5)

并通过整个列复制此公式（我假设您的输入位置在 B、C 列中，并且您的 RefSheet 范围在 A2-C5 中，就像您在示例中提供的那样）尽管您最好在 Refsheet 上创建命名范围，因此公式将变为：

=SUM(SIGN((B2=Ref_Loc1)*(C2=Ref_Loc2)+(B2=Ref_Loc2)*(C2=Ref_Loc1))*Ref_ID)

（记住，它应该是一个数组公式）。获得 ID 后，您可以根据 ID 是否为 0（表示未找到）轻松地对输入单元格进行条件格式设置。refsheet 位置对必须是唯一的，ID 必须是数字而不是零。

于 2012-06-07T18:13:41.140 回答