Excel Macro to extract sentences containing a particular word

Excel Macro to extract sentences containing a particular word

September 29, 2015

I found the below macro at: http://www.experts-exchange.com/Software/Office_Productivity/Q_28520535.html

 

It can be used to find sentences in an Excel column which contain a particular word.   Change the Range from 

Range("A1", Range("A1").End(xlDown))    to show the cells at the top and bottom of the column with the text you are searching.   This macro is set to look for the strings  EMR and EHR.  The search is case sensitive.  

 

 

See the demonstrative video here:

 

 

 

Sub ListPhrases()
    Dim rng As Range
    Dim cl As Object
    Dim arrPhrases() As String
    Dim x, c As Integer
    
    'Change "A1" to the first cell where sentences occur to test
    Set rng = Range("A1", Range("A1").End(xlDown))
    
    For Each cl In rng
        arrPhrases = Split(cl.Value, ",")
        c = 1
        For x = 0 To UBound(arrPhrases)
            If InStr(arrPhrases(x), "EHR") > 0 Then
                cl.Offset(0, c).Value = Trim(arrPhrases(x))
                c = c + 1
            ElseIf InStr(arrPhrases(x), "EMR") > 0 Then
                cl.Offset(0, c).Value = Trim(arrPhrases(x))
                c = c + 1
            End If
        Next x
    Next cl
End Sub

Please reload

Contact Me With Your Litigation Support Questions:

seankevinoshea@hotmail.com

  • Twitter Long Shadow

© 2015 by Sean O'Shea . Proudly created with Wix.com