The views expressed in this blog are those of the owner and do not reflect the views or opinions of the owner’s employer. All content provided on this blog is for informational purposes only. The owner of this blog makes no representations as to the accuracy or completeness of any information on this site or found by following any link on this site. The owner will not be liable for any errors or omissions in this information nor for the availability of this information. The owner will not be liable for any losses, injuries, or damages from the display or use of this information. This policy is subject to change at any time. The owner is not an attorney, and nothing posted on this site should be construed as legal advice. Litigation Support Tip of the Night does not provide confirmation that any e-discovery technique or conduct is compliant with legal, regulatory, contractual or ethical requirements.
Featured on the ACEDS blog.
Follow me on Twitter and see How-To Videos on my YouTube channel.
New tips for paralegals and litigation support profesionals are posted to this site each night. Click on the blog headings for better detail.
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