【Excel VBA】快速標示重複資料

內容目錄

VBA快速標示重複資料

原本有一資料庫(A:B欄)，若想再新增資料(D欄)，需要快速知道有沒有重複。以下讓我們使用VBA快速標示重複資料。

輸入巨集

※輸入以下指令※

Sub 標示重複資料()
Dim i As Integer, j As Integer
    For i = 4 To 10
        For j = 2 To 16
        If Cells(i, 4).Value = Cells(j, 1).Value Then
        Cells(i, 5).Value = "重複"
        Exit For
        End If
        Next j
    Next i
End Sub

執行巨集

點選「開發人員」-「巨集」或按下「Ctrl」+「F8」快捷鍵，並「執行」巨集。

執行後則快速標示重複資料(如E欄)，此時則可避免建立到重複資料。

語法說明

Dim i As Integer, j As Integer
‘宣告變數「i」型態為「整數」、「j」型態為「整數」。
‘Integer變數範圍為-32768到32767，範圍已勘用，若數值超過的話可改成Long變數。
For i = 4 To 10
‘使用For迴圈， i 從 4 開始直到10 (為D欄資料的列數)。
For j = 2 To 16
‘使用For迴圈， i 從 2 開始直到16 (為A欄資料的列數)。
If Cells(i, 4).Value = Cells(j, 1).Value Then
‘如果 i 列 4 欄儲存格的值等於 j 列 1 欄儲存格的值，則進行以下。
‘結合For迴圈，則是依序檢查D欄資料是否有等於A欄資料。
Cells(i, 5).Value = “重複”
‘如果有相同的值則在 i 列 5 欄儲存格填入「重複」，即為重複的話在E欄寫入「重複」。
Exit For
‘當找到重複資料後，就不需要繼續檢查剩下的資料，也就是再往下一列檢查。