小白新学，这个代码怎么写？

零落0320

我也是刚开始学VBA,用了最笨的方法
Sub look()
Dim i&, j&, rng As Range
For i = 2 To Sheet2.Range("o" & Rows.Count).End(xlUp).Row
    For j = 2 To Sheet1.Range("b" & Rows.Count).End(xlUp).Row
        Set rng = Sheet2.Range("o" & i).Find(Sheet1.Range("b" & j))
        If Not rng Is Nothing Then Sheet2.Range("n" & i) = Sheet1.Range("b" & j).Offset(, -1)
    Next
Next
End Sub