如果其他单元格有文本，则在一个单元格中更新Y

Question

需要解决以下代码如果在B列中，文本值为" eaa "in列M应该更新"Y"但是它没有更新

Dim y As Workbook
Dim lr1, lr2 As Long
With y.Sheets("MARM")
If .Range("B5").Value = "EA" Then
lr2 = .Range("A" & .Rows.Count).End(xlUp).Row
.Range("M5:M" & lr2).Value = "Y"
End If
End With

Answer 1

M列为空，A列用于标识最后一行数据是这样的……

输入图片描述