Need a formula (or VBA) which extracts keywords containing an underscore "_" in cell value

**skydivetom** · 02-22-2021, 03:51 PM

Experts:

I need some assistance with either a) creating a custom-formula or b) using some VBA or macro which will extract all *entire* words that include an underscore ("_") in a cell.

The cell values include carriage returns as well as duplicate occurrences of a particular keyword. Below shows and example of the raw data, the output of the keywords (w/ duplicates) as well as the string output without duplicates.

Ideally, I would like to get to the output of the "2nd string" (w/o duplicates). Also, each "found keyword" should be separated by a semi-colon (or comma).

My question: How can the output below accomplished via a formula or VBA? I have included a sample XLS containing 3 different example strings (with different lengths) and their associated outputs.

Please Login or Register  to view this content.

**Rick Rothstein** · 02-22-2021, 04:49 PM

Give this macro a try...

Please Login or Register  to view this content.

**AliGW** · 02-22-2021, 04:56 PM

Administrative Note:

We would very much like to help you with your query, however it has been brought to our attention that the same query has been posted on one or more other forums and you have not provided the required cross-post link(s) here.

Please see Forum Rule #3 about cross-posting and adjust accordingly. Read this to understand why we (and other sites like us) consider this to be important.

(Note: this requirement is not optional. No help to be offered until the link is provided.)

**skydivetom** · 02-22-2021, 05:04 PM

Rick -- wow... your solution is very, very close...

I did a compare between my manual output and the macro ouput. Here's what I noted.

1. The macro is case sensitive... that is, "pers_1st_line_supervisor" AND "PERS_1ST_LINE_SUPERVISOR" was output by the macro. Is there a way we can ignore the macro being case-sensitive and, therefore, drop either "pers_1st_line_supervisor" OR "PERS_1ST_LINE_SUPERVISOR"?

2. Also, for some reason, cell A2 also include the keyword "field_name". Unless I'm mistaking, it appears this word was not picked up by the macro. If so, do you know why that's the case?

Standing by in hopes we can could it to remove case-sensitivity to get a distinct list regard of lower/upper case.

Thank you,
EEH

**skydivetom** · 02-22-2021, 05:21 PM

I apologize for cross-posting... I will ensure to only choose one forum the next time.

https://www.mrexcel.com/board/thread...value.1162629/

**Rick Rothstein** · 02-22-2021, 05:35 PM

I put my code back in its original message... that code is now case insensitive.

**skydivetom** · 02-22-2021, 05:40 PM

AliGW -- my apologies... I provided the link. Would you please re-post Rick's solution as well as my follow-up question. Thank you!

**Rick Rothstein** · 02-22-2021, 05:56 PM

Originally Posted by skydivetom

AliGW -- my apologies... I provided the link. Would you please re-post Rick's solution as well as my follow-up question. Thank you!

I already restored my solution with the change you wanted (see Message #5 first).

**skydivetom** · 02-22-2021, 06:00 PM

Thank you, Rick... your solution is perfect. Final question... is there any chance you could include some comments as to, e.g, the ForLoop and With function "do" during the VBA. Always like to have some understanding as to how the code operates. THOUSAND THANKS IN ADVANCE!

**AliGW** · 02-22-2021, 06:15 PM

Originally Posted by skydivetom

AliGW -- my apologies... I provided the link. Would you please re-post Rick's solution as well as my follow-up question. Thank you!

I’ve restored yours, but Rick’s was never removed.

Cross posting is allowed, but only if you are completely upfront about it abd provide links. Rads the rules page, please. Thanks.

**Rick Rothstein** · 02-22-2021, 06:58 PM

Originally Posted by AliGW

I’ve restored yours, but Rick’s was never removed.

I had removed it after I saw your Administrative Note message, then I restored it with the requested fix after the OP posted his link.

**skydivetom** · 02-22-2021, 07:01 PM

Rick -- thank you... the solution is perfect.

In the event you didn't get a chance to see my last response, is there any chance you could help me better understand the solution by adding some comments?

Thank you

**Rick Rothstein** · 02-22-2021, 07:56 PM

Originally Posted by skydivetom

...is there any chance you could help me better understand the solution by adding some comments?

See if this helps...

Please Login or Register  to view this content.

**Bo_Ry** · 02-23-2021, 08:28 AM

Formula for Excel 2019

Formula:

Please Login or Register  to view this content.

formula for MS365

Formula:

Please Login or Register  to view this content.

UDF

Please Login or Register  to view this content.

**skydivetom** · 02-23-2021, 09:34 AM

Rick - thank you so much for posting the comments... I truly appreciate it.

Btw, I posted a follow-up question (for data cleanup) in another post. Here's the link... in case you might be willing to offer additional insights for the follow-up question.

https://www.excelforum.com/excel-pro...ml#post5477387

**skydivetom** · 02-23-2021, 09:53 AM

Bo_Ry - I appreciate your feedback, too. I downloaded the example but... good stuff; however, I prefer using the built-macro. IMHO, it is much easier to view/modify vs. the very long formula.

Thank you for offering an alternative solution though... 'much obliged.

**AliGW** · 02-23-2021, 09:55 AM

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.

Also, you may not be aware that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.

**skydivetom** · 02-23-2021, 10:02 AM

AliGW -- thank you for the reminder to close the post. Btw, I already provided kudos to Rick (added to his reputation).

Need a formula (or VBA) which extracts keywords containing an underscore "_" in cell value

LinkBack

Thread Tools

Rate This Thread

Display

Need a formula (or VBA) which extracts keywords containing an underscore "_" in cell value

Re: Need a formula (or VBA) which extracts keywords containing an underscore "_" in cell v

Re: Need a formula (or VBA) which extracts keywords containing an underscore "_" in cell v

Re: Need a formula (or VBA) which extracts keywords containing an underscore "_" in cell v

Re: Need a formula (or VBA) which extracts keywords containing an underscore "_" in cell v

Re: Need a formula (or VBA) which extracts keywords containing an underscore "_" in cell v

Re: Need a formula (or VBA) which extracts keywords containing an underscore "_" in cell v

Re: Need a formula (or VBA) which extracts keywords containing an underscore "_" in cell v

Re: Need a formula (or VBA) which extracts keywords containing an underscore "_" in cell v

Re: Need a formula (or VBA) which extracts keywords containing an underscore "_" in cell v

Re: Need a formula (or VBA) which extracts keywords containing an underscore "_" in cell v

Re: Need a formula (or VBA) which extracts keywords containing an underscore "_" in cell v

Re: Need a formula (or VBA) which extracts keywords containing an underscore "_" in cell v

Re: Need a formula (or VBA) which extracts keywords containing an underscore "_" in cell v

Re: Need a formula (or VBA) which extracts keywords containing an underscore "_" in cell v

Re: Need a formula (or VBA) which extracts keywords containing an underscore "_" in cell v

Re: Need a formula (or VBA) which extracts keywords containing an underscore "_" in cell v

Thread Information

Users Browsing this Thread

Similar Threads

Tried formula variations including "if", "sumif", "min", "match" but can't get it to work.

What's wrong with my this formula "=CELL("contents","D" & TEXT(MATCH(MIN(M25:M39),M25:M39"

Need to SPLIT cell content on to multiple columns using relevant "KEYWORDS" - Urgent

Trying to autofill certain "keywords" with a specific cell.

[SOLVED] Formula Needed to fill multiple cells with "No" when the word "No" is entered into a cell

[SOLVED] Using underscore ("_") with Cells().formula, to divide the code in multiple lines

[Solved] Why would an "_" Underscore be in a Formula?

Bookmarks

Bookmarks

Posting Permissions