當前位置:成語大全網 - 書法字典 - Vba詞典溢出

Vba詞典溢出

起初,代碼似乎沒有任何大問題。我先幫妳簡化壹下。運行後,會出現錯誤的黃色標記線。截圖幫妳再看壹遍!

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?放棄

結束?潛水艇