I basically have lots of data (all words) that need to be organized.
There are 4 columns and about 60,000+ lines. I have sites and keywords in column B and C and in the mix are blank lines and random words - I don't want them hence the reason why I need them filtered/deleted. Doing this will take me hours.
In those 2 columns, I have up to 100 keywords and 100 sites that need to be filtered and have all the random lines to be deleted.
Let me know if you guys have some sort of macro to do this or program. Using any filter won't do help as I've already tried in open office.
Thanks!
-
Only thing I can see you doing is highlighting and deleting manually.
-
I'm just desperate to find a solution to my problem.
-
Everybody on these forums are friendly and willing to help without the addition of money.
Might want to ask some family members or friends to assist you with this task however. -
Family members come to me when it comes to computer problems so going to do them won't do any good to me -
how hard can highlighting and deleting?
-
Well not too hard, the problem is he has 60,000+ lines to filter. It's not so much hard, as it is time consuming.
-
It's when you have to do the same thing over and over for 2 hours per excel file. I can have upwards to 5 excel files to work with everyday. So it's a pain!!
-
Thread has been edited to be in compliance with forum rules.
-
Highlight all 4 columns by clicking and holding all 4 column headings
Then go to Data menu select Filter then autofilter
Now you will have drop down list arrows for each columns on the first row of your data.
From the dropdown lists select blank cells or the ones you want to delete
and they will be filtered out.
Highlight and delete them.
That's it.
There is another way involved Visual Basic coding to do that automatically, but I haven't got any readily available codes to perform just what you want to do.
Or write or record a macro similar to this:
this will filter out all the rows with blank fields exist in column B
Sub Macro1()
Columns("A").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="="
Rows("25:50").Select
Selection.Delete Shift:=xlUp
End Sub
I just wrote a little VBA code for you:
Public Sub DeleteRows2()
Dim FoundCell As Range
Application.ScreenUpdating = False
Set FoundCell = Range("A:A").Find(what:="yalcin")
Do Until FoundCell Is Nothing
FoundCell.EntireRow.Delete
Set FoundCell = Range("A:A").FindNext
Loop
End Sub
Create a button and write the following code for that button:
Private Sub CommandButton1_Click()
Call DeleteRows2
End Sub
As soon as you click on the button it will find all the rows containing data called "yalcin" and deletes the entire corresponding rows. You can do that for other columns for different values as well as blanks using ""
_________________________________
This code is faster than the one above:
Public Sub DeleteRows3()
Dim LastRow As Long
Dim aRange As Range
Application.ScreenUpdating = False
Rows(1).Insert
Range("A1").Value = "Temp"
With ActiveSheet
.UsedRange
LastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
Set aRange = Range("A1", Cells(LastRow, "A"))
aRange.AutoFilter Field:=1, Criteria1:="mrcarter" , Operator:=xlOr, Criteria2:=""
aRange.SpecialCells(xlCellTypeVisible).EntireRow.Delete
.UsedRange
End With
End Sub -
I played with the auto filter and it cut down my work by almost 65%!
I'll be testing this with another report on Monday so I'll let you know how it goes and see if I need any improvement.
As for compensation, my budget was $10
Let me know if you want it or I can give you a Dead Island Code that can be activated via steam.
Thanks!! -
Don't you worry about money.
take care -
I'm a bargain hunter and have had good luck finding recent game titles for almost 50% off. All legit of course. -
If you insist on returning my favour then I have been looking for bargain Myscript stylus for windows.
If you do know any please let me know.
Other than that I am just glad I was a good help.
That's all. -
Are you referring to this?
Buy MyScript Stylus - Downloads - Vision Objects -
If you do that would be great.
If you don't, do not worry at all.
take care -
Been looking for deals online but haven't found anything thus far.
My offer still stands.
Cheers. -
Don't worry about it.
We are here to help each other.
Regards, -
I gave you rep awhile ago but sucks I can't give you rep again.
Thanks again for your help!!!
Help! I need excel spreadsheet experts ASAP..
Discussion in 'Windows OS and Software' started by mrcarter, Dec 16, 2011.