两个工作簿中如何根据重复的字段自动识别重复？

好运来5599

两个工作簿：A 《客户资料档》      B《客户资料库》
A表每完成一单，点击我设定的按钮后即自动将其信息记入到B表。其代码我写好，功能也OK，现面临问题如下：
1、不能识别重复：虽有重复提示窗口，但点击“是”之后，记入到B表中的信息却是另取一行继续记入，而不是覆盖原记录。
2、数值前的“0”不能显示：客户原厂代码必须是3位数字（001、002……999），不足3位的在数值前加“0”补足。而实际记入到B表的字符却少了“0”。
3、静态的建档日期：我现在没设置好建档日期，现想实现的功能为：点击任一按钮，即自动生成当前日期+时间（显示格式：YYYY-MM-DD，时时:分分），且只要“客户代号”未改变，该日期和时间一直静止不变； 若“客户代号”改变了，则随即改变。
4、动态的修改日期：想实现的功能为：点击任一按钮，即自动生成当前日期+时间（显示格式：YYYY-MM-DD，时时:分分），且只要A表中任一项内容发生改变，则日期和时间随即改变。注：同一内容修改后，又还原的，只要未点击按钮，则不作修改，也就不改变日期和时间。（例：把某单元格中的 ”3“改为 ”5“，然后又改成 “3”，这种情况不作为修改。但若改成 ”5“之后点击了按钮，则日期和时间要作改变）

以下为识别重复的代码，请各位高手帮忙看看哪里出了问题：
RowCount = Workbooks(FileName).Sheets(sht0).Range("A1").CurrentRegion.Rows.Count
    Rem 客户资料库中是否有历史记录
    YNHave = False
    For Forn = 3 To RowCount
        mykhdh = Trim(Workbooks(FileName).Sheets(sht0).Cells(Forn, 10).Value & "")
        If khdh = mykhdh Then
           YNHave = True
        End If
    Next
    If YNHave = True Then
        YnUpdate = MsgBox("客户代号：" & khdh & " 在《客户资料库》中已存在，现在修改它吗?", vbYesNo, "确认是否修改")
        If YnUpdate = vbYes Then
          Workbooks(FileName).Sheets(sht0).Cells(Forn, 10).Value = mykhdh