普通vba基本如下,點擊圖片看動畫效果。
?如果?目標。專欄?=?4?然後
arr?=?Range("a2:c "?& amp?[a65536]。結束(3)。行)
為了什麽?我?=?1?去哪?欠奉
d(arr(i,1))?=?""
然後
用什麽?選擇。確認
。刪除
。補充?類型:=3,?AlertStyle:=1,?運算符:=1,?Formula1:=Join(d.keys,",")
結束?隨著
結束?如果