方法一

以下圖為例，假如在A1至A25單元格區域內有商品名稱，為檢查有沒有重複的商品名稱，則在B2單元格內輸入公式“=countif(A:A,A2)”，然後選定B2單元格，向下拖動，直到B25為止，在B列，則出現了左側商品名出現的次數，將重複資料手工刪除即可。

方法二

選定A2至A25區域，單擊“格式”-“條件格式”，在條件1欄內選擇“公式”，在公式欄內輸入“countif(A:A,A2)>1”。然後，在單元格格式內選定“圖案”，將圖案顏色設定成紅色，點選“確定”後，則有重複商品名稱的單元格顯示為紅色。手工刪除重複資料即可。

方法三

在B2單元格輸入“=if(match(A2,A:A,0)=row()-1,"","重複")”後回車，向下拖動複製公式，有重複的商品名稱將在B列對應的單元格內出現“重複”字樣，這裡涉及到的函式都比較常用，不一一解釋了。

方法四

選定A2至A25區域，單擊“格式”-“條件格式”，在條件1欄內選擇“公式”，在公式欄內輸入“=match(A2,A:A,0)row()”。然後，在單元格格式內選定“圖案”，將圖案顏色設定成紅色，點選“確定”後，則有重複商品名稱的單元格顯示為紅色。手工刪除重複資料即可。

方法五

Private Sub tj()

Dim i As Integer //定義I為整型變數

Dim j As Integer //定義J為整型變數

Sheets("Sheet1").Select //選定“sheet1”工作表

i = 2 //給i賦初值，即從第二行開始

Do While Cells(i, 1) "" //當單元格為空時退出迴圈

j = i + 1

Do While Cells(j, 1) "" //當單元格為空時退出迴圈

If Cells(i, 1) = Cells(j, 1) Then //判斷兩個單元格資料是否重複

Cells(j, 1).Select //選定重複單元格

End If

j = j + 1

Loop

i = i + 1

Loop

End Sub