CÁCH XÓA DỮ LIỆU TRÙNG TRONG EXCEL

Dim rng As RangeDim rngFind As RangeDim cell As RangeDim DupAddresses As StringDim SearchList As StringDim Delimiter As String

‘Setup VariablesSet rng = SelectionDelimiter = “-;;-“

‘Loop through each cell in selectionFor Each cell In rng.Columns(1).Cells‘Does cell have value?If cell.Value “” Then‘Has value been searched for yet?If InStr(1, SearchList, cell.Value và Delimiter) = 0 ThenSearchList = SearchList và cell.Value và Delimiter

Set rngFind = rng.Find(what:=cell.Value, LookIn:=xlValues, _lookat:=xlWhole, searchdirection:=xlNext)

If Not rngFind Is Nothing Then‘Record first instance foundFirstAddress = rngFind.Address

‘Find any next instances of valueDoSet rngFind = rng.FindNext(rngFind)If rngFind.Address = FirstAddress Then Exit DoSet rngFind = rngFind.Resize(1, rng.Columns.Count)DupAddresses = DupAddresses và rngFind.Address & “,”Loop

End IfEnd IfEnd IfNext cell

‘Report ResultsIf DupAddresses “” ThenSet rng = Range(Left(DupAddresses, Len(DupAddresses) – 1))rng.Select

UserAnswer = MsgBox(rng.Count & ” duplicate values were found,” _& ” would you like to delete any duplicate rows found?”, vbYesNo)If UserAnswer = vbYes Then Selection.Delete Shift:=xlUpElseMsgBox “No duplicate cell values were found”End If

End Sub