Downlooad and Install Dll Files: Delete Unique Records using a Macro

Monday, September 26, 2016

Delete Unique Records using a Macro

I have data in the ranges of A1:D1000. I want to be able to use a Macro to delete all the rows that have any unique records that are in column "A" . What is the VBA for that?

Thanks in Advance.

Marc

Solutions to the Problem Delete Unique Records using a Macro

Download SmartPCFixer to Fix It (Free)

Hi,

So if a record appears only once in Col A then you want to delete it keeping only those records that appear more than once.
Try this

Sub delete_Me()
Dim LastRow As Long, x As Long, MyRange As Range
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Set MyRange = Range("A1:A" & LastRow)
For x = LastRow To 1 Step -1
    If WorksheetFunction.CountIf(MyRange, Cells(x, 1)) = 1 Then
        Rows(x).Delete
    End If
Next
End Sub

How to Avoid Downloading Malware

Where are you getting the download?

There are malicious people who download valid copies of a popular download, modify the file with malicious software, and then upload the file with the same name. Make sure you are downloading from the developer's web page or a reputable company.

Cancel or deny any automatic download

Some sites may automatically try start a download or give the appearance that something needs to be installed or updated before the site or video can be seen. Never accept or install anything from any site unless you know what is downloading.

Avoid advertisements on download pages

To help make money and pay for the bandwidth costs of supplying free the software, the final download page may have ads. Watch out for anything that looks like advertisements on the download page. Many advertisers try to trick viewers into clicking an ad with phrases like "Download Now", "Start Download", or "Continue" and that ad may open a separate download.