昨天電腦系統故障了。安裝win10系統是真的麻煩。不過已經安裝好了。
問題如下:解決的思路如下:
代碼運行的結果如下:
代碼如下:
代碼解析
1:dim定義變量
2:獲取數據源的最後一個非空單元格行号
3:後期綁定字典
4:把數據源的區域,賦值給數組
5:重新定義數組的大小
6:遍曆數組,把兩列的數據複制給str
7:判斷str是否在數組裡面
8:把str作為字典的key,把行數賦值給字典的item。
9:把滿足條件的數據賦值給數組
10:清空目标區域的數值
11:把數組賦值給目标區域。
點擊關注,可以閱讀更多與VBA 相關的文章私信 VBA或 vba 可以獲取文章中含VBA代碼的Excle文件,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!