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?放棄
結束?潛水艇