Generating a Keyword Occurrence List

by Allen Wyatt
(last updated December 3, 2016)

3

Martyn has a worksheet that includes, in column B, quite a few keywords. Any individual cell could have any number of unique keywords, each separated by a space. He needs a way to generate a list of unique keywords along with how many rows contain each keyword.

There is no simple way to generate the keyword list using formulas. You can, however, make quick work of such a list using a macro. The following is an example that will do the job very quickly.

Sub KeywordList()
    Dim dTally As Dictionary
    Dim rSource As Range
    Dim c As Range
    Dim d As Variant
    Dim aKeys() As String
    Dim J As Integer
    Dim sTemp As String

    Set dTally = New Dictionary
    Set rSource = Selection
    For Each c In rSource
        ' Put all keywords in an array
        aKeys = Split(c, " ")
        For J = LBound(aKeys) To UBound(aKeys)
            sTemp = LCase(Trim(aKeys(J)))
            If Len(sTemp) > 0 Then
                If dTally.Exists(sTemp) Then
                    ' Increment existing keyword
                    dTally(sTemp) = dTally(sTemp) + 1
                Else
                    ' Add new keyword and count
                    dTally.Add sTemp, 1
                End If
            End If
        Next J
        Erase aKeys
    Next c

    ' Now have all the keywords in a dictionary object
    ' Add a new worksheet to store the list
    Worksheets.Add
    Cells(1, 1) = "Keyword"
    Cells(1, 2) = "Count"

    J = 1
    For Each d In dTally.Keys
        J = J + 1
        Cells(J, 1) = d
        Cells(J, 2) = dTally(d)
    Next d
End Sub

If the macro doesn't work on your system, it could be because Excel doesn't recognize the Dictionary object. If you suspect this is the case, make sure you enable the Microsoft Scripting Runtime library within VBA. (You do this in the Visual Basic Editor by clicking Tools | References, locating the library, clicking the check box next to it, and finally clicking OK.)

In order to use the macro, simply select the cells that contain the keywords you want to tally (in Martyn's case, that would be the cells in column B) and then run the macro. It creates a new worksheet that lists the keywords in column A and, in column B, how many times each keyword occurs.

As written, the macro pays no attention to case of the keywords; this means, for instance, that "Orange" is the same as "orange." If you want the keyword list to be case sensitive, then you simply need to remove the LCase statement; it is used only once in the macro.

You should also be aware that the keywords are listed in the new worksheet in the order in which they occur in the selection you make before running the macro. Once in the worksheet, you can easily sort the keywords, if desired.

ExcelTips is your source for cost-effective Microsoft Excel training. This tip (13499) applies to Microsoft Excel 2007, 2010, 2013, and 2016.

Author Bio

Allen Wyatt

With more than 50 non-fiction books and numerous magazine articles to his credit, Allen Wyatt is an internationally recognized author. He is president of Sharon Parq Associates, a computer and publishing services company. ...

MORE FROM ALLEN

Preventing a Frame when Converting a Table to Text

Tables, in Word, can either be inline with the rest of your text or the text can wrap around the table. If you have ...

Discover More

Displaying the Control Panel

The Control Panel is (or has been) the heart and soul of controlling Windows. How you display the control panel, however, ...

Discover More

Remembering Copies to Print

If you routinely need to print more than one copy of a document, you'll love the ideas presented in this tip. There's ...

Discover More

Excel Smarts for Beginners! Featuring the friendly and trusted For Dummies style, this popular guide shows beginners how to get up and running with Excel while also helping more experienced users get comfortable with the newest features. Check out Excel 2013 For Dummies today!

More ExcelTips (ribbon)

Macro Fails after Filter

When developing a macro that others may use, you might want to test it out to make sure it works properly if a filter is ...

Discover More

Making a Cell's Contents Italics within a Macro

You can use macros to process information in your worksheets. You may want to use that macro to apply the italic ...

Discover More

Getting Rid of Alphabetic Characters

When you need to get rid of characters in the middle of a cell value, the best way to do it is through the use of macros. ...

Discover More
Subscribe

FREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."

View most recent newsletter.

Comments

If you would like to add an image to your comment (not an avatar, but an image to help in making the point of your comment), include the characters [{fig}] in your comment text. You’ll be prompted to upload your image when you submit the comment. Maximum image size is 6Mpixels. Images larger than 600px wide or 1000px tall will be reduced. Up to three images may be included in a comment. All images are subject to review. Commenting privileges may be curtailed if inappropriate images are posted.

What is 8 - 1?

2016-12-04 07:59:49

Michael (Micky) Avidan

It is possible that I did not fully understand the question (presented 8 days a go to Allen's E-Mail subscribers - but the following picture was my solution (without VBA).
Did I wrongly interpreted the task ?
(see Figure 1 below)
--------------------------
Michael (Micky) Avidan
“Microsoft® Answers" - Wiki author & Forums Moderator
“Microsoft®” MVP – Excel (2009-2017)
ISRAEL


Figure 1. 




2016-12-03 14:09:08

Clive Darling

Guys, I really loved this macro. I've been compiling a history of an amateur theatre and have been sourcing cast lists for approx 280 plays back to 1936. I had entered the cast list for any one play in a single cell separated by commas. I amended your macro to change the "space" to a "comma" and voila! I have a list of each actor and the number of plays he/she performed in over the course of the 80 years!
Great macro for me anyway!!


2016-12-03 10:39:52

Simon Hemmings

Hi there
This is a brilliant tip, one thing I would ask is, is there a way that you could get this macro to work between two specific dates?

Any help appreciated

Thank you
Simon


This Site

Got a version of Excel that uses the ribbon interface (Excel 2007 or later)? This site is for you! If you use an earlier version of Excel, visit our ExcelTips site focusing on the menu interface.

Newest Tips
Subscribe

FREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."

(Your e-mail address is not shared with anyone, ever.)

View the most recent newsletter.