Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Excel list clean up

Posted on 2016-10-22
6
Medium Priority
?
64 Views
Last Modified: 2016-10-23
The list is one column with many rows. Many of the rows contain word, or words and numbers.
I am seeking a script that I can amend (i.e include different words if required) to be able to remove all words, (including letter/number combinations like m2 - see list) in one run without changing the cell location of the number that is left.
example-list.xlsx
0
Comment
Question by:gregfthompson
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 3
6 Comments
 
LVL 32

Expert Comment

by:Subodh Tiwari (Neeraj)
ID: 41855727
You may try something like this....

Sub ReplaceWords()
Dim replWhat As String
Dim replWith As String
replWhat = Application.InputBox("What word/string you want to replace?", "String To Be Replaced!")
If replWhat = "False" Then
   MsgBox "You didn't input the string to be replaced", vbExclamation
   Exit Sub
End If
replWith = Application.InputBox("What is the word/string you want to replace with?", "String To Be Replaced With!")

Columns(1).Replace What:=replWhat, Replacement:=replWith, LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
MsgBox "All the occurrences of " & replWhat & " were replaced with " & replWith & " successfully.", vbInformation, "Done!"
End Sub

Open in new window

0
 

Author Comment

by:gregfthompson
ID: 41855737
Thanks.

 amended it to this:
Sub ReplaceWords()
Dim replWhat As String
Dim replWith As String
replWhat = Application.InputBox("m2", "(approx)", "Square Mtr Approx", "sqm", "m2", "squareMeter", "(approx)", "m²", "m?", "approx.", "sq m", "squaremeter", "square metres", "Square Metres", "m")
If replWhat = "False" Then
   MsgBox "You didn't input the string to be replaced", vbExclamation
   Exit Sub
End If
replWith = Application.InputBox("What is the word/string you want to replace with?", "String To Be Replaced With!")

Columns(1).Replace What:=replWhat, Replacement:=replWith, LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
MsgBox "All the occurrences of " & replWhat & " were replaced with " & replWith & " successfully.", vbInformation, "Done!"
End Sub
 
 But it would not run.
0
 

Author Comment

by:gregfthompson
ID: 41855738
It said Wrong number of arguments or invalid property assignment.
0
 [eBook] Windows Nano Server

Download this FREE eBook and learn all you need to get started with Windows Nano Server, including deployment options, remote management
and troubleshooting tips and tricks

 
LVL 32

Expert Comment

by:Subodh Tiwari (Neeraj)
ID: 41855742
Try it like this.....
When prompted to input the words to be replaced, list all the words separated by a comma in the first input box and in the second input box, input the word which you want to replace the above mentioned words with. If you just want to remove those words, leave the second input box blank and click OK.
Sub ReplaceWords()
Dim lr As Long, i As Long
Dim rng As Range
Dim replWhat As String
Dim replWith As String
Dim str() As String
lr = Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Range("A1:A" & lr)
replWhat = Application.InputBox("What word/string you want to replace?", "String To Be Replaced!")
If replWhat = "False" Then
   MsgBox "You didn't input the string to be replaced", vbExclamation
   Exit Sub
End If
str() = Split(replWhat, ",")
replWith = Application.InputBox("What is the word/string you want to replace with?", "String To Be Replaced With!")

For i = 0 To UBound(str)
   If str(i) <> " " Then
      rng.Replace What:=str(i), Replacement:=replWith, LookAt:=xlPart, _
          SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
          ReplaceFormat:=False
    End If
Next i
End Sub

Open in new window

0
 

Author Comment

by:gregfthompson
ID: 41855749
Thanks:I tried this, but it seems there are too many words for the input line.


Sub ReplaceWords()
Dim replWhat As String
Dim replWith As String
replWhat = Application.InputBox($ +,(approx),/,+,app,Approx,approx,approx,Approx,approx,approx m2,approx m2,approx s,Approx sqm,Approx Square metres,Approx square metres,Aprox m2,Apx,Auction,From,from: m2,in excess of sqmtrs,IncludesBAL m2,m,m,m x m,m?,m?,m?,m2,m2,m2,m2,m2,m²,m²,m2 &,m2 approx,m2 mm2,m²,m²,m²,m²,m² approx,Metres²,metres²,mm2,ms,mt2,mt2 approx,N/A,nil,over,Over sqm,sq,sq,sq m,sq m,sq m,sq m,sq m approx,sq metres,sq metres,sq metresw,Sqft,sqm,sqm,sqm,sqm,sqm,sqm,sqm approx,sqm approx,Sqms,sqms,sqr,sqr,sqrs m2,square,square,Square Metre,square Metre,Square Metres,Square Metres,square metres,Square Metres,square metres,Square Mtr,Square Mtr,Square Mtr approx,Square Mtr Approx,square units,squareMeter,squareMeter,squares m2,Townhouse,Unit,Unit sqm,Unknown,Varied,Various Sizes,VIC Sqms)
If replWhat = "False" Then
   MsgBox "You didn't input the string to be replaced", vbExclamation
   Exit Sub
End If
replWith = Application.InputBox("What is the word/string you want to replace with?", "String To Be Replaced With!")

Columns(1).Replace What:=replWhat, Replacement:=replWith, LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
MsgBox "All the occurrences of " & replWhat & " were replaced with " & replWith & " successfully.", vbInformation, "Done!"
End Sub
0
 
LVL 32

Accepted Solution

by:
Subodh Tiwari (Neeraj) earned 2000 total points
ID: 41855758
It is better to have a separate sheet with a list of words you want to remove from Sheet2. See the Sheet Word List in the attached. Just mention all the words in column A and click the button on Sheet2 to remove those words from column A on Sheet2.
Example-list.xlsm
0

Featured Post

Learn Veeam advantages over legacy backup

Every day, more and more legacy backup customers switch to Veeam. Technologies designed for the client-server era cannot restore any IT service running in the hybrid cloud within seconds. Learn top Veeam advantages over legacy backup and get Veeam for the price of your renewal

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Access developers frequently have requirements to interact with Excel (import from or output to) in their applications.  You might be able to accomplish this with the TransferSpreadsheet and OutputTo methods, but in this series of articles I will di…
Ever wonder what it's like to get hit by ransomware? "Tom" gives you all the dirty details first-hand – and conveys the hard lessons his company learned in the aftermath.
This Micro Tutorial will demonstrate in Google Sheets how to use the HYPERLINK function to create live links inside your spreadsheet.
Many functions in Excel can make decisions. The most simple of these is the IF function: it returns a value depending on whether a condition you describe is true or false. Once you get the hang of using the IF function, you will find it easier to us…

705 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question