Vba 在工作表中搜索一系列连续的行单元格

在工作表中搜索一系列连续的行单元格

    h1 h2 h3 h4 h5             h1 h2 h3 h4 h5
    1  2  3  6  7              1  2  3  8  9
    2  2  2  4  5              3  3  3  2  1
    table 1                    table 2

如何编写循环以搜索表1中表2每行的前三个单元格？假设表的格式相同

---

范围和单元格似乎不起作用，因为我不能对它们使用计数器

你需要更具体一点-所有三个单元格都必须匹配吗？是的，我从选择1 2 3（仅这三个值）开始，在表1中的每一行中搜索它，如果它是完全相同的值和完全相同的顺序，它就会匹配（如表1中的第1行）@Tim Williams然后我对表2中的每一行执行相同的操作@Tim WilliamsName值以相同的顺序和位置（前3列）？这看起来很棒。如果我正在比较的行不在同一行lvl上，我将如何修改它？如图所示，tbl1中的第2行可能与表2中的第1行匹配@TimWilliams你试过了吗？应该已经对照表2中的每一行检查表1中的每一行。

Dim tlb1 as range,tbl2 as range
dim rw1 as range, rw2 as range

set tbl1=Range("your table1 range here")
set tbl2=Range("your table2 range here")

for each rw1 in tbl1.rows
    for each rw2 in tbl2.rows
        if rw1.cells(1)=rw2.cells(1) and rw1.cells(2)=rw2.cells(2) _
           and rw1.cells(3)=rw2.cells(3) then
           'do whatever you want to do on match...
           'Exit For 'if you want to stop when you find the first match...
        end if
    next rw2
next rw1