memo20231118

Sub 埋込式()
Dim Lastrow As Long
    Lastrow = Cells(Rows.Count, 2).End(xlUp).Row
        Range("N2:N" & Lastrow) = "=VLOOKUP(M2,$B:$D,2,FALSE)"
        Range("N2:N" & Lastrow).Value = Range("N2:N" & Lastrow).Value
        Range("O2:O" & Lastrow) = "=VLOOKUP(M2,$B:$D,3,FALSE)"
        Range("O2:O" & Lastrow).Value = Range("O2:O" & Lastrow).Value
MsgBox "完了"
End Sub