我的方法是: 1.插入新的一列,比如説是A列 2.在第一格敲入公式"=countif(a1,a:a)" 3.把公式拉下來到所有涉及的行 4.根據A列來升序排序 5.A列顯示是1的,説明不重複 6.A列是2的,有2個是一樣的,3有3個,以此類推 7.應為排過序了,所以上面1的就不用動了 8.在下面的2就刪掉1行,3就刪掉2行,以此類推 以上應該可以用VBA來解決,不過我沒研究過