请大神们帮忙看下这个替换的难题

qiongmei6

我想在“”非数字人民币汇总“”表格内的o4：o列求得一个代码，就是执行它后，”非数字人民币汇总“o4：o列如果与“界面”b6：b7如果一致，则o4改成a6：a7的名字，为了方便大神们的理解，我把模拟的结果放在p列，但是这个结果我想他出现“o列”，谢谢各位大神的帮忙

蓝桥玄霜

汇总的例子：

gwjkkkkk

感觉楼主模拟结果有误
Sub test()
Dim ar, br, i&
    ar = Sheets(1).[A1:B7]
    br = Range("O4", Cells(Rows.Count, "O").End(3))
    For i = 1 To UBound(br)
         For j = 1 To UBound(ar)
             If br(i, 1) = ar(j, 2) Then br(i, 1) = ar(j, 1): Exit For
         Next j
    Next i
    [O4].Resize(UBound(br)) = br
End Sub