Keep Only Doubles Of Cells In A Column, Delete All Other Rows

Aug 21, 2009

I need a macro that keeps any row that has a cell value that shows up twice and only twice in column A. All other rows would be deleted (except the header row, row 1). For example, If it's found only once, a third time or more than three times, delete those entire rows.

This is different than "keeping only duplicates" which would be 2 OR MORE.

A couple of things,

1. The workbook might not be sorted by column A, so a cell named "ABC0011" could show up in row 3, then again in row 8, in this case, keep both.

View 9 Replies


ADVERTISEMENT

Delete Duplicate Rows Where Column A And Column B Combined Are Equal

Dec 8, 2009

I have a sheet where i want to delete duplicate rows where column A and column B combined are equal, i.e. range(Ax:Bx) where x is the current row. I am using the macro below but cant seem to get it working as I keep getting a type mismatch error and Im not sure why.

View 2 Replies View Related

Function Or Sub To Detect Doubles

Jun 19, 2007

I have a column with employee id's. Sometimes two or more employee ID's are double. I need to dedect if there are ID numbers that appears more then ones. If I found such a number I can copy that.

Has someone an idea or is there a build in function to handle this?

View 10 Replies View Related

Formula That Turns Doubles Into Unique Numbers

Apr 16, 2008

formula that turns doubles into unique numbers example:

7788873 = 783

each number is in a cell each....

View 11 Replies View Related

Find The Column Name Purple & Delete The Whole Column If There Are No Blank Cells

Mar 18, 2009

I'd like a macro that does 3 things..

1. Find the last row (cell) of data in the "Customer Number" column. This search should be by the name "Customer Number" rather than by column letter because the column that "Customer Number" will be in can change.

2. Find the column named "Purple" (also by name for same reason)

3. If the "Purple" column has no blank cells in those same number of rows as the "Customer Number" column, delete the whole "Purple" column.

View 11 Replies View Related

Delete All Rows Which Has 0 Value In Column D In Sheet2?

May 27, 2014

Refer to attached file.

I am using the below code to delete all rows which has 0 value in column D in sheet2.

[Code] ......

Now I need to add some code within this so to change #N/A to 0 in column D and to change #N/A to blank in column B in sheet1.

Attached File : Book1.xlsx‎

View 2 Replies View Related

Delete Any Rows In Which Column B Doesn't Have ...

Oct 27, 2008

I'd like to tell Excel that anytime it finds the text "ABC" anywhere in any cell in column B but doesn't have any data in column A, to delete the entire row.

View 6 Replies View Related

Delete Rows If A Value In Column A Appears Only Once

Apr 7, 2009

I was wondering if it is possible to delete rows if a value appears only 1 time in a column? To clarify since 123 only appears once in column A I want the entire row 4 deleted.

View 2 Replies View Related

Delete Rows And Column Macro

Aug 1, 2011

I want to create a Macro to be used on the Active Sheet that FIRST deletes all the rows that contain the following values in Column E. Here are the values contained in Column E that will result in deleting the whole row: PT, JK, BH.

Here is a data sample, the real data will have thousands of rows:

ROW 1 COLUMN E ROW 2 Work Code ROW 3 BN ROW 4 KL ROW 5 PT ROW 6 JK
ROW 7 AL ROW 8 BH ROW 9 PT ROW 10 JK ROW 11 TU ROW 12 PT

Second, I would like the Macro to DELETE the ENTIRE Column E Not just the values in Column E.

View 5 Replies View Related

Find Value In Column & Delete All Rows Below

Feb 23, 2009

I have searched high and low for a more efficient macro than the current loop i have. I have a range that varies in size but always follows the same format. After i reach a certain value output from a formula, "4", I want to delete all lines below that line. So I want to find value "4" then move one row down and delete all lines to line 2004. I have attached the macro that i compiled but it takes a couple of minutes to run.

Sub manual()
Dim Firstrow As Long
Dim Lastrow As Long
Dim Lrow As Long
Dim CalcMode As Long
Dim ViewMode As Long
With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
. ScreenUpdating = False
End With
With ActiveSheet
.Select
ViewMode = ActiveWindow.View
ActiveWindow.View = xlNormalView.................

View 2 Replies View Related

Trying To Delete Rows That Have Text Only In Column

May 3, 2006

I have a spreedsheet that has both numerical data and text data in column "A". I need to delete all the rows that have text in Column A and keep the rows that have numerical data.

View 5 Replies View Related

Filter And Delete Any Rows Where There Is A Value In A Column

May 5, 2006

I have written some code that will allow me to filter and delete any rows where there is a value in a column ( column J in this instance ) more than 2500. The problem is that it only wolrs when i press F8 and step through the code, and not when i press the commnd button and run it.

Sheets("CAIZOLY9").Select
Range("A1").Select
Do Until ActiveCell = "Payment Amount"
ActiveCell.Offset(0, 1).Select
ActiveCell.Select
Loop

Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Select
If ActiveCell > 2499.99 Then
Selection.EntireRow.Delete
Else
End If
Loop
Range("A1").Select
End Sub

View 7 Replies View Related

Delete Rows If Corresponding Column Is Blank

Jun 15, 2007

I am trying to delete rows that do not have values in column B. This is a quote form that takes up over 1000 rows but not all are needed (ie lines that do not have any value in B "qty"). Is there a way do have excel delete these without doing it manually?

View 3 Replies View Related

Delete Rows Between 2 Keywords In Column

Jun 26, 2008

I want to delete entire rows between two keywords.

Example:

Row 1 Connecting
Row 2 aaa
Row 3 bbb
Row 4 Unavailable

I want to delete rows 1 through to 3 and loop it until the worksheet is completed.

View 9 Replies View Related

Delete Rows With Cells That Have Same Value

Jul 18, 2014

I have a sheet with rows that extend to about Column AT. In some of the rows, all the cells are populated with "--". I want to delete these rows. Other rows have "--"s but not in every cell. I tried to remove all the "--"s then running this code:

For t = 2 To Workbooks(WorkbookNm).Sheets("--").UsedRange.Rows.Count j = CStr(t)
If Application.CountA(Workbooks(WorkbookNm).Sheets("--").Range("A" & j).EntireRow) = 0 Then
Rows(t & ":" & Workbooks(WorkbookNm).Sheets("--").UsedRange.Rows.Count).Delete
GoTo Step15__2:
End If

It worked, but I had trouble re-adding the "--"s. So I'm wondering if there is a simple way to modify the above code, so that it looks for and deletes rows with only "--" and possibly nothing in the cells (e.g. Column AU and on)?

View 9 Replies View Related

Delete Rows With Cells < #

Jun 29, 2009

I'm trying to create a macro and having absolutely no luck with it. I want the macro to run through all the rows and delete all rows where every number in that row is less than a specified number (.03 for this particular case).

View 19 Replies View Related

Delete Rows Where 2 Cells Are The Same

Apr 24, 2008

I m trying to develop an IF function that will go through each cell in a column and delete an entire row based on whether the Cell Value is identical to the one above or not. What i have thus far:

Sub RemoveDuplicate()
Dim i As Integer
Sheets("Pre-Allege").Activate
i = 2
Cells(i, FindCol + 2).Select
Do Until IsEmpty(Cells(i, FindCol + 2))
If Cells(i, FindCol + 2) = Cells(i - 1, FindCol + 2) Then Rows("i:i").Delete Shift:=xlUp
Else
i = i + 1
End If
Loop
End Sub

View 4 Replies View Related

Delete Duplicate Rows Data In Only One Column

Jul 28, 2013

with deleting duplicate entries in a spreadsheet that contains two names, a code number and a date. All rows with a duplicate number in column “B” should be deleted. Write a micro code? I have a few thousand of entries that need to be knocked out.

A sample file is attached : Example.xls

View 5 Replies View Related

Determine Last Row Of Data Delete All Rows Unless Value Between 1 And 12 In Column J

Nov 12, 2013

I have a spreadhseet that has rows with headers, blanks & total lines throughout that need to be deleted. There are also about 48 rows of data at the bottom that are not needed.

The row numbers will be variable each time the report is run. I need the macro to find the last row of data in column A, use this as the last row in the range and delete all rows above this unless there is numbers 1 to 12 in column J.

View 9 Replies View Related

Move Column Data To Row Then Delete Those Rows

Jul 23, 2007

We have a client that provided us with a text file that we imported into
Excel. Rather than have the entire record in one row, they have the record
in 4 rows.

What I need a macro or something to do is move award 2 award 3 and award 4 into the same row and after doing this delete the other rows.

Below is an idea how this looks.
1JohnSmithstreetcitystateZIPaward 1
2JohnSmithstreetcitystateZIPaward 2
3JohnSmithstreetcitystateZIPaward 3
4JohnSmithstreetcitystateZIPaward 4
5BillJonesstreet2city2state2ZIP2award 1
6BillJonesstreet2city2state2ZIP2award 2
7BillJonesstreet2city2state2ZIP2award 3
8BillJonesstreet2city2state2ZIP2award 4

What we need for our data to work is:
1JohnSmithstreetcitystateZIPaward 1award 2award 3award 4
2BillJonesstreet2city2state2ZIP2award 1award 2award 3award 4

View 9 Replies View Related

Delete Rows :: Where The Corresponding Entry In Column Is Blank

Oct 7, 2008

I have data input in a particular column, say Column C.

I would like to have a macro that deletes the rows where the corresponding entry in Column C are blank.

In addition, there are multiple worksheets with the same data format in the same spreadsheet, but the number of row varies. It would be great if the macro can delete the row with blank cell in that column across all worksheet.

View 10 Replies View Related

2003 Delete Rows With Specific Value In Column C

Apr 13, 2009

I need a code that will go thru column C and delete the whole row if cell value is 78315, Also it needs to shift the the rows up so there is no empty rows wheneverything is done done. I used some codes but they take forever to go thru whole sheet.

View 4 Replies View Related

Delete Rows Column F If Greater Than Or Equal To Zero.

May 14, 2009

Starting in cell F3, if Column F is greater than or equal to zero, delete the entire row and continue deleting rows until Column A has contents in it. Then go to Column F in that same row that had contents in Column A, if the contents in that row of Column F are greater than or equal to zero, delete the entire row and continue deleting rows until Column A has contents in it. Persist with this pattern until every row in Column F has been checked.

View 4 Replies View Related

Delete Rows Until, Total Found In Column

Jun 24, 2009

Is there a macro that will begin in cell A2 and delete rows until the contents Total is found in a random row in Column A?

View 4 Replies View Related

Delete ALL Rows That Have Cell In Column (J) That Looks Blank

Feb 11, 2010

I'm trying to delete rows which has columns that appears to be blank. Below code worked fine but it took about 15 min for the macro to work through the spreadsheet.

View 2 Replies View Related

VBA / Delete All Rows That Contain Certain Values In A Specific Column

Mar 8, 2012

Is there a VBA code I can use that will delete all rows that contain "ABC" or "YXZ" or "HHH" in column A ?

View 2 Replies View Related

Loop To Delete Rows If Middle Column Less Than 1

Nov 20, 2012

What I have is 3 columns, all containing numbers

What I want to do is delete a row if the middle column is less than 1.

However my loop seems to skip a row if the column data is like the below

a
b
c

1
1
1

1
0
1

1
0
1

1
1
1

1
0
1

End

Code:
Range("A2").Select
Do
If ActiveCell.Offset(0, 1) < 1 Then
Range(ActiveCell, ActiveCell.Offset(0, 2)).Select
Selection.Delete Shift:=xlUp
End If
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Value = "End"

View 5 Replies View Related

Delete Certain Range Of Rows In Single Column?

Jun 10, 2014

I need to delete a certain range of Rows in a single column

View 3 Replies View Related

Vba To Delete Rows Based On Certain Conditions In Column A

Mar 2, 2006

I have a report in which I need to delete the entire row for each cell in Column A that has the name "Defacto" in a certain location in that cell. I am trying to use VBA code in conjuction with the "MID" function [i.e., Mid(Cell.Value, 8, 7) = "Defacto"]. This is the code I came up with (but, obviously, it doesn't work):

Sub DeleteRowOnCondition()
Range("A2").Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select
For Each Cell In Selection
If Mid(Cell.Value, 8 , 7) = "Defacto" Then Rows.Delete
Next Cell
End Sub

As well, there is another worksheet in the same report in which I need to delete all the rows that do NOT meet that condition (while retaining the ones that do).

View 9 Replies View Related

Delete Rows Meeting Criteria In One Column

Jun 4, 2009

I have a large number of user inputs which is linked to a data sheet. In this sheet are rows to be kept and rows to be deleted. See attached example...

I need code to delete all other similar rows than the one with a number (1) in the field Complete. There can only be a number (1) in the field Complete in one of the rows.

But if there is no number (1) in the field Complete in any of the rows, no rows should be deleted.

The data sheet is to be transferred to Access afterwards.

View 3 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved