你b列返回sheet2的那些数据 没有说清楚?Sub 查找()For i = 2 To [b65535].End(xlUp).Rowsheets("sheet1").Cells(i, 4).FormulaR1C1 = "=INDIRECT(ADDRESS(MATCH(rc[-2],shee2!c2:c2,0),1,,,""sheet2""))"NextRange("d2:d" & i + 2).Value = Range("d2:d" & i + 2).ValueEnd Sub这段代码能够在shee1的b列输入查找条件,在sheet2的b列查找,在sheet1 d列返回sheet2 a列的数据
|