暗淡?我?作為什麽?龍?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宏,就可以得到妳想要的效果。
當然,妳不能理解“查找每列的後五位數字”這句話,所以這段代碼只是從每列的最後壹行開始查找,並找到具有四個相同數據的第壹個,即結束該列的判斷。