Sub？智能復制（）
暗淡？sh1？作為什麽？工作表，？sh2？作為什麽？工作表
設置？sh1？=?工作表（1）？Sheet1
設置？sh2？=?工作表（2）？工作表2
暗淡？sh1row？作為什麽？龍？sh2row？作為什麽？長的
sh1row？=?sh1。範圍（“A65536”）。結束（xlUp）。排
sh2row？=?sh2。範圍（“A65536”）。結束（xlUp）。排
暗淡？指數2？作為什麽？長的
為了什麽？指數2？=?2?去哪？sh2row
如果？（索引2？& gt？782)?然後
MsgBox？“不能超過782行！”
GoTo？11
結束？如果
暗淡？索引1？作為什麽？長的
索引1？=?（索引2？-?2)?*?42?+?1?多達782行sheet2。
如果？（sh2。單元格（索引2，？1)?& lt& gt？sh1。單元格（index1，？3))?然後
sh2。單元格（索引2，？1）font . color？=?vbRed
其他
sh2。單元格（索引2，？3).調整大小（5）？=?sh1。單元格（index1？+?1,?2).調整大小（5）。價值？在此添加代碼。
sh2。單元格（索引2，？8).調整大小（5）？=?sh1。單元格（索引2？+?1,?2).調整大小（5）。價值
sh2。單元格（索引2，？13).調整大小（2）？=?sh1。單元格（索引3？+?1,?2).調整大小（2）。值請註意，此處Index3之前沒有定義。
結束？如果
下壹個？
11?放棄
結束？潛水艇