Find them and Extract them – VBA Macro

Share

Facebook
Twitter
LinkedIn

I started a new consulting gig with NZ Ministry of Business (aside: when I told my daughter about this, she widened her eyes and said, “ministry of MAGIC!!!”). On my first day, while having lunch in breakout area, I chatted with the gentleman sitting opposite me. We got talking about this and that and eventually the topic turned to What I do at MB. So I told him that I am helping the HR with some data analysis and reporting using Excel & SQL Server. He asks me, “So you must be familiar with Excel object model”. I said, “oh, why yes”. He then asks me, “I have this problem that is bothering me for years. You see, I get a lot of data. And I use Find (Ctrl+F) to find all the cells that contain certain code. But the results are all over the place. I want to know how to extract all the finds to a target worksheet – value & address format.”

I explained him how to do this while chewing mouthfuls of rice & veggies.

But once I am home, I thought, “hey, maybe there are others out in the world who want to do this”.

find-and-extract-smith-v4

So here we go.

How to find and extract all matching values

Let’s say you have some data in a range like this.

find-and-extract-data

And you want to find all cells with comp in them. If the values are all in one column, you could use auto-filter to quickly filter cells with comp in them and copy paste them to a target range.You can even automate the steps a bit with advanced filter

But what if the data can be in any column?

We can use Find (Ctrl+F) to find the values and click on “Find all” to see all results in the find box. But to extract them, we must take the red pill and escape the limitations of Excel to enter in to the exciting world of VBA.

Here is a quick demo of what our find and extract macro does.

find-extract-all-macro-demo

Here is the code:


Sub findAll()
    Dim findWhat As String, address As String
    Dim fsr As Range, rs As Range, fCount As Long
    
    findWhat = InputBox("Enter what you want to find?", "Find what...")
    
    If Len(findWhat) > 0 Then
        clearFinds
        Set frs = Range("b4").CurrentRegion
        Set rs = frs.Find(What:=findWhat)
        If Not rs Is Nothing Then
            address = rs.address
            Do
                Range("I5").Offset(fCount).Value = rs.Value
                Range("J5").Offset(fCount).Value = rs.address
                Set rs = frs.FindNext(rs)
                fCount = fCount + 1
            Loop While Not rs Is Nothing And rs.address <> address
        End If
    End If
End Sub

How does it work?

The code is inspired from Bill Jelen’s excellent example on Find method on MSDN.

The logic goes like this.

  1. We start by asking the user what they want to find and store this in findWhat string variable.
  2. If the string to find is not empty,
  3. We clear any previous find results
  4. We grab the current region for cell B4 (change this to the top-left of your find range)
  5. We look for findWhat in this range using range.Find method
  6. As long as Find result is not empty and not same as the first result
    1. We copy the value & address to I5 (change this to target range as per your workbook setup)

Download the Find and Extract workbook

Click here to download the example workbook. Play with the macro to learn its inner workings.

The rabbit hole is deep, don’t stop just here…

If you enjoyed this little macro, you are going to love VBA. Check out our free starter tutorial or extensive VBA section for more.

How would you find and extract results?

I thought the Find method approach would be slow, but I am surprised to see that on a medium sized dataset (12000 values), the macro produced results almost instantly. So I would be using it more often to iterate thru a range to find a value.

What about you? Do you have such problems at work? Do you use VBA to solve them or just ask colleagues during lunch break and hope for a miracle? Please share your approach in the comments.

Facebook
Twitter
LinkedIn

Share this tip with your colleagues

Excel and Power BI tips - Chandoo.org Newsletter

Get FREE Excel + Power BI Tips

Simple, fun and useful emails, once per week.

Learn & be awesome.

Welcome to Chandoo.org

Thank you so much for visiting. My aim is to make you awesome in Excel & Power BI. I do this by sharing videos, tips, examples and downloads on this website. There are more than 1,000 pages with all things Excel, Power BI, Dashboards & VBA here. Go ahead and spend few minutes to be AWESOME.

Read my storyFREE Excel tips book

Overall I learned a lot and I thought you did a great job of explaining how to do things. This will definitely elevate my reporting in the future.
Rebekah S
Reporting Analyst
Excel formula list - 100+ examples and howto guide for you

From simple to complex, there is a formula for every occasion. Check out the list now.

Calendars, invoices, trackers and much more. All free, fun and fantastic.

Advanced Pivot Table tricks

Power Query, Data model, DAX, Filters, Slicers, Conditional formats and beautiful charts. It's all here.

Still on fence about Power BI? In this getting started guide, learn what is Power BI, how to get it and how to create your first report from scratch.

41 Responses to “SQL Queries from Excel”

  1. Leonid says:

    I use this method very often.
    I always use =SUBSTITUTE (ColumnWithText,"'","''")
    to be sure that potential apostrophe in text columns are doubled as required in SQL.

  2. Chandoo says:

    @Leonid.. that is a good technique to use substitute to clean up text apostrophes. thanks

  3. Paul G. says:

    Goal:
    Generate update statement in excel where the columns that can be updated are dynamic
    You want the columns which are not updated to keep the same value
    (or not be overwritten with NULL values with the new generated statement)
    the statement can be applied to multiple rows in excel for the same column headers
    (This is why the '$' exist for the column headers that are being set)

    A1 = First_Name
    B1 = Last_Name
    C1 = Middle_Name

    ="
    UPDATE PERSONS "&CHAR(10)&
    " SET 1 = 1 "&CHAR(10)&
    IF(LEN(TRIM($A2))=0,"",", "&$A$1&" = '"&$A2&"'"&CHAR(10))&
    IF(LEN(TRIM($B2))=0,"",", "&$B$1&" = '"&$B2&"'"&CHAR(10))&
    IF(LEN(TRIM($C2))=0,"",", "&$C$1&" = '"&$C2&"'"&CHAR(10))&
    " WHERE name = 'staticordynamicvalue' AND gender = 'staticordynamicvalue'
    "
    Output (if all columns are set):
    UPDATE PERSONS SET 1 = 1,
    First_Name = 'Joe',
    Last_Name = 'ORien',
    Middle_Name = 'Richard'
    WHERE age = 28 AND gender = 'm'

    Output (if only First _Name (A1) is set):
    UPDATE PERSONS SET 1 = 1,
    First_Name = 'Joe'
    WHERE age = 28 AND gender = 'm'

  4. Paul G. says:

    Possibly my post above is confusing without the actual table to look at. I will do the same example with the table used here. Instead of an insert statement I will generate an update statement for the columns, Cust_Name, Phone & E-mail
    where we can generate an update statement for any column individually or together. 🙂 I hope this can help.
    =”
    UPDATE table “&CHAR(10)&
    ” SET 1 = 1 “&CHAR(10)&
    IF(LEN(TRIM($A2))=0,”",”,Cust_Name = ‘”&$B3&”‘”&CHAR(10))&
    IF(LEN(TRIM($B2))=0,”",”, Phone = ‘”&$C3&”‘”&CHAR(10))&
    IF(LEN(TRIM($C2))=0,”",”, E-mail = ‘”&$D3&”‘”&CHAR(10))&
    ” WHERE Cust_Name = ’Bill Gates'

  5. Visa Inde says:

    Thanks, it has been very useful !
    It saved me at least 30 minutes, and time is the most expensive thing in our world...

  6. Kad says:

    Hey Paul,
    What if any of A2, B2, or C2 is a date field?
    The formula above is taking date as string. Any solution?

    • Smitha says:

      Even I faced the same problem. If any of the above columns are date, it is taken  as string. Any work around for this?

  7. Sam Howley says:

    I've found the string concatenation method works well.

    At the risk of sounding spammy I would mention that
    if it's something your are doing regularly it might be worth investigating a tools
    that make it easier, such as QueryCell, an excel add-in I've developed.

    It gives you a right click menu option that will produce and then customize insert statements for the selected region of Excel data.

    Cheers
    Sam

    • Pravin says:

      Hi,
      For inserting the excel data to your SQL table, you can create insert statements in excel file according to your columns.
      then just execute the statements all at once, it will insert the required data to sql server table.
      thanks,

  8. Chetan Patil says:

    I tried to generate t-sql insert queries from the above example
    ="insert into values('" &A2 &"','" & B2& "');"
    but it generates on one record instead of all records from excel sheet.
    I'm using Excel 2003 and the excel sheet contains 922 records.

  9. Mike says:

    Most data bases can generate DDL for any object but not a lot of them allow generation of INSERT statements for the table data.
    The workaround is to make use of ETL Tools for transferring data across servers. However, there exists a need to generate INSERT statements from the tables for porting data.
    Simplest example is when small or large amount of data needs to be taken out on a removable storage media and copied to a remote location, INSERT..VALUES statements come handy.

    There is a number of scripts available to perform this data transformation task. The problem with those scripts that all of them database specific and they do not work with textiles

    Advanced ETL processor can generate Insert scripts from any data source including text files
    http://www.dbsoftlab.com/generating-insert-statements.html

  10. B.N.Prabhu says:

    Super Aiticle. Thanks for this post.

  11. I used to deal with the same problem, until found this awsome and free tool.
    http://www.xtrategics.com/shapp/String%20Handler.application

    regards,

  12. Archana says:

    Hi ,
    i need a sql query to update a DB in excel 2010..
    i have the query(SQL) for insert in excel as ,
    ="insert into customers values('" &B3 &"','" & C3 & "','"&D3&"');"

    similarly i need q sql query for update in excel

  13. shana says:

    i want clear formulas only for insert,delete,update,select

  14. Ankit Mahendru says:

    Hi !
    I would like to thank you so much ! This trick saves me a  lot of time. Thank you so much. Really appreciate it !
     
    -Ankit

  15. Richard says:

    You may like to take advantage of this unique tool 'Excel to Database'. 
    (free for 60 days)http://leansoftware.net The Excel-to-Database utility enables you to validate and transfer data from Microsoft Excel or text file to a database table or stored procedure process. Any text data can be pasted into the application, this may be from another Excel sheet or from text files such as CSV format. SQL Server, Access, MySQL, FoxPro .. Application features Some unique features of Excel to Database include: ?Easy to use color coded/traffic light data validation ?Data is validated as soon it is typed or pasted into Excel ?Upload Excel data to a table or stored procedure process ?Allow default values ?Mandatory/must have fields can be specified ?Allow user friendly column names ?Allow excel formula / calculated fields ?Multiple database type support: Microsoft SQL Server, Access, MySQL and others (to be tested) ?Supports Custom SQL scripts, with SQL/Excel merge fields ?Database validation checks ensure you comply with any rules defined within the database ?Multiple Task configuration ?For co-operative use, Tasks can be shared across a network ?Task configuration is password protected http://leansoftware.net 

  16. Manoraj says:

    Its works fine for single record.
    I want to update 1000 records in DB. Can you help me.

  17. Richard says:

    Excel database tasks 2.3 (EDT)
    you can now load directly from any source into Excel, validate and upload to most SQL database platforms including SQL Server with automatic transaction wrapping.
    You can also use EDT as a multi-user application by easily designing your own Edit data tasks and deploying EDT on your users workstations.
    Automatically creates UPDATE/INSERT statements based on the primary key.  Default SQL can be modified as you require.
    Makes the best use if Excel power - formatting, formula, validation, conditional formatting..  without creating any problematic spreadsheets!
    Release details on the blog:
    http://leansoftware.net/forum/en-us/blog.aspx
    Thanks for the interest
    Richard
     
     
     

  18. Usman says:

    Thanks for the valueable information, it really help me alot.
     
    Thanks again.

  19. Laercio says:

    As I do with a field of type date?
    = "UPDATE SET business datetime =" & "'" & A2 & "' WHERE ID =" & B2 & ""
    the date is not 03/10/2012 is 41246. Even putting quotes ...

  20. Elaein says:

    Please show how to do it properly with dates as well as when those dates are empty. Thanks!

  21. mahesh.S says:

    In a separate column make the date to Text using below formula
    =TEXT(C2,"mm/dd/yyyy") Then Refer this text column in your update statement

  22. cjb says:

    Great post saved me a a load of time on a task i had to complete

  23. sql010 says:

    thanks for sharing article... helpful!

  24. Pooja says:

    Thanks 🙂

  25. Hello,

    Nice article.

    I have also created one tool for create table script using excel http://devssolution.com/create-table-in-sql-using-excel/

    Please check it.

    Thanks & Regards,
    Sandeep Bhadauriya

  26. […] Excel formula used – http://chandoo.org/wp/2008/09/22/sql-insert-update-statements-from-csv-files/ […]

  27. HSoomro says:

    If any one can help me out with following.
    I want to know a SQL query of below excel formula:
    =LOOKUP(0,-SEARCH(LEFT(F2,LEN($B$2:$B$100))+0,$B$2:$B$100),$A$2:$A$100)

    Excel data is as below;
    Name Codes
    names1 992
    names2 57
    names3 856
    names4 297
    names5 63

    if there is a number (29756789) then it should search in sql by taking the prefix of number (297) from (29756789) and return the name field (name4).
    Codes can be of two digit or three.

    Thanks

  28. David says:

    Here is a link to an Online automator to convert CSV files to SQL Insert Into statements:

    CSV-to-SQL: http://csv-to-sql.herokuapp.com

  29. Victor R Udeshi says:

    ="INSERT INTO table VALUES (" &A3 &",'" & B3 & "','"&C3&"','" & D3 & "','" & E3 & "'," & F3 & "," & G3 & "," & H3 & ",'" & I3 & "'," & J3 & ");"

    B3 has date data that looks like 9/22/17 but with the formula above b3 is coming out as 43000?

    how do i fix that?

  30. Mr.Shan says:

    I just want to insert the Excel records in Sql table without Visiting SQL.
    basically i m just want to run a command in Excel Only.
    Help Me..plz..?

  31. Danyal Hussain says:

    Hi I have a question maybe you guys have an answer for me

    ="insert into customers values('" &B3 &"','" & C3 & "','"&D3&"');" where B3, C3, D3 refer to above table data.

    the above technique works but is there a way to write it so it takes a range instead of individual columns. because I have an extremely wide table

    ="insert into customers values(B3:D3);" where B3, C3, D3 refer to above table data.

  32. Qadir Bux says:

    Awsome

  33. Bhagwat says:

    Its Great Effort to help everyone who working with excel.

  34. Ed says:

    Thanks for the mini-tutorial on SQL from Excel. Didi it several years ago, but couldn't remember the syntax! All the dialogue was really helpful as well!

  35. Administrasi Bisnis says:

    The formula above is taking date as string. Any solution?

Leave a Reply