客戶名稱在b列中。
有空的
if application . countif（range（“b 1:b 65536“），cells（4，2））& gt；那麽1
Msgbox“重復”
出口接頭
其他
r =範圍（“b65536”）。結束（三）。行+1
範圍（“a4:h4”）。復制範圍（“a“amp；r)
Msgbox“添加成功”
如果…就會結束
剩下的自己修改。