補充壹個輔助數據:？Cells(i，6) =？DTPicker1。價值與價值。？ComboBox2。文本& amp？ComboBox1。文本
用作索引字段
然後在寫入工作表之前，添加壹個判斷:
暗淡？rng？作為？範圍
設置？rng？=?列(6)。Find(DTPicker1。價值？& amp？ComboBox2。文字？& amp？ComboBox1。正文)
如果？rng？是嗎？不是嗎？什麽都沒有？然後
Msgbox？"該記錄已經存在，不能提交！"
退出？潛水艇
結束？如果，當然也可以用字典對象來完成，這就更簡單了。
此外，查找B列中最後壹個空單元格的循環可以簡化為壹個代碼，如下所示:
我？=?範圍(" B65536 ")。結束(XLUP)。偏移量(1，0)。可以將rowlist控件的RowSource屬性與工作表單元格關聯起來，然後根據前面判斷重復的代碼定位記錄，然後修改保存。