查找一个范围，其中包含在第二个范围内也以相同顺序存在的值

发布于 2024-12-11 17:10:54 字数 224 浏览 0 评论 0原文

查找范围（例如范围（“A1：A2”））中以相同顺序存在于第二范围（例如范围（“B：B”））中的值的有效方法是什么。

到目前为止我的搜索只提出了两种可能性： 1）使用循环迭代第二个范围。 2) 使用 Range("B:B").Find 搜索“A1”中的值，然后测试连续单元格中 A2 的值。 Range("B:B") 中的值不是唯一的，因此需要继续查找，直到找不到任何值。

还有其他我没有考虑过的选择吗？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

喵星人汪星人 2024-12-18 17:10:54

虽然 (2) 听起来很合理，但另一种快速方法是将 B1 和 B2 连接到工作列中的单个单元格中（手动或使用 VBA），对 B2 和 B2 重复操作。 B3 等等，然后在单个查找中匹配组合字符串

[更新]

您可以使用像这样的工作列。 ||连接器用于避免错误匹配，错误检查处理不匹配的情况

Sub ConCatMatch()
    Dim rng1 As Range
    Dim X
    Set rng1 = Range([b1], Cells(Rows.Count, "B").End(xlUp))
    rng1.Offset(0, 1).Columns.Insert
    With rng1.Offset(0, 1)
        .FormulaR1C1 = "=RC[-1]&""||""&R[1]C[-1]"
        X = .Value2
        .EntireColumn.Delete
    End With
    If IsError(Application.Match([a1].Value & "||" & [a2].Value, X, 0)) Then
        MsgBox "No match", vbCritical
    Else
        MsgBox "Match starting at " & rng1.Cells(1).Offset(Application.Match([a1].Value & "||" & [a2].Value, X, 0) - 1, 0).Address(0, 0)
    End If
End Sub

在此处输入图像描述

While (2) sounds sensible, another quick way would be to concatenate B1 and B2 into a single cell in a working column ( manually or with VBA), repeating for B2 & B3 Etc, and then match the combined string in a single lookup

[Update]

You could use a working column like so. The || concatenator is used to avoid false matches, an error check handles the no match situation

Sub ConCatMatch()
    Dim rng1 As Range
    Dim X
    Set rng1 = Range([b1], Cells(Rows.Count, "B").End(xlUp))
    rng1.Offset(0, 1).Columns.Insert
    With rng1.Offset(0, 1)
        .FormulaR1C1 = "=RC[-1]&""||""&R[1]C[-1]"
        X = .Value2
        .EntireColumn.Delete
    End With
    If IsError(Application.Match([a1].Value & "||" & [a2].Value, X, 0)) Then
        MsgBox "No match", vbCritical
    Else
        MsgBox "Match starting at " & rng1.Cells(1).Offset(Application.Match([a1].Value & "||" & [a2].Value, X, 0) - 1, 0).Address(0, 0)
    End If
End Sub

enter image description here

回复收藏 0 原文

~没有更多了~