Page tree

Welcome to FreeSoftwareServers Confluence Wiki

Skip to end of metadata
Go to start of metadata
Sub RemoveDuplicateRows()

Dim rng As Range
Dim LastRow As Long

LastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
Set rng = ActiveSheet.Range("A1:D" & LastRow)
rng.RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes ' Compare if data is the same in Column A/B/C
End Sub

  • No labels