如果单号已经保存过不再保存VBA

nnsea

Sub 保存1111()
Set es = Cells.Find("*", , xlFormulas, , , xlPrevious)
a = Application.CountA(Worksheets("记录保存").[a:a])
Range([a5], es).Copy Worksheets("记录保存").Cells(a + 1, 1)
With Worksheets("记录保存")
.Cells(a + 1, "f").Resize(es.Row - 4) = [b2] '保存入库单
.Cells(a + 1, "g").Resize(es.Row - 4) = [e2] '保存供应商
.Cells(a + 1, "h").Resize(es.Row - 4) = Now() '保存日期时间
.Cells(a + 1, "h").Resize(es.Row - 4).NumberFormatLocal = "e-m-d aaaa"
End With
MsgBox "保存成功!"
End Sub