Xóa Dòng Trùng Nhau Trong Excel

Dyên ổn rng As RangeDyên ổn rngFind As RangeDlặng cell As RangeDyên ổn DupAddresses As StringDyên 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 sầu value?If cell.Value “” Then‘Has value been searched for yet?If InStr(1, SearchList, cell.Value & Delimiter) = 0 ThenSearchList = SearchList & 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 & rngFind.Address và “,”Loop

End IfEnd IfEnd IfNext cell

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

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

End Sub