當前位置:成語大全網 - 書法字典 - VBA找到了同樣的號碼

VBA找到了同樣的號碼

Sub?XXX()

暗淡?我?作為什麽?龍?m?作為什麽?整數,?n?作為什麽?龍?答?作為什麽?整數

為了什麽?m?=?1?去哪?10

為了什麽?我?=?細胞(65536,?m)。結束(三)。劃?去哪?1?邁步?-1

答?=?0

細胞(我,?m)內飾顏色?=?vbGreen

為了什麽?n?=?細胞(65536,?m)。結束(三)。劃?去哪?1?邁步?-1

如果?細胞(n,?m)?=?細胞(我,?m)?然後

答?=?答?+?1

細胞(n,?m)內飾顏色?=?vbGreen

如果?答?& gt?4?然後

退出?為

結束?如果

結束?如果

下壹個?n

如果?答?=?4?然後

退出?為

其他

單元格(1,?m)。調整大小(I)。interior。colorindex?=?xlNone

結束?如果

下壹個?我

下壹個?m

結束?Sub,您可以將數據添加到我的附件中進行自我測試。當然,如果您知道VBA的操作,只需將上述代碼復制到您自己的文件中即可。

運行XXX宏,就可以得到妳想要的效果。

當然,妳不能理解“查找每列的後五位數字”這句話,所以這段代碼只是從每列的最後壹行開始查找,並找到具有四個相同數據的第壹個,即結束該列的判斷。