Tracker
HOME    TRACKER    Excel

# Split Words In One Cell To Many Cells

## I have some data that is imported, it's about 25,000-30,000 characters and 2,300- 3,500 words, it all comes in as one cell, A1, if I do a text to column on it I will loose everything past column IV. Is there anyway a macro can take the data and put each word in a cell by its self starting in A2? The words a have a space between them.

Related Forum Messages:
Split Cells With 2 Words Into 2 Cells
My data looks like this:

Mindy Moore
Mace Kook
Cow Moon

These names are in Column A. I want to split the first and last name into Column A and Column B of my spreadsheet. I Usually copy row 1 to a txt file then import with "space" as my delimiter. I basically want an automated method of doing this.

Split Numbers And Split Words
How do I split numbers!

I have two problems/challenges!

Part I...
I got the answer 1987, and now I want Excel to take the numbers out and display...
1 in one box then i set + in the next, then 9 in the 3ed. box, next box +, then 8, then +, then 7 in the last so that i can have Excel make a SUM of it all to 25.

How do I split 1987 and put the numbers in different boxes?

Part II...
I want to make A=1 B=2... all the way up to 9, then start over again with J=1 K=2... up to 9 again and then over again.

So that if I write my name it comes out as a value of 14 (Odd = O=6 D=4 D=4 =14)

(AJSØ=1 BKTÅ=2 CLU=3 DMV=4 ENW=5 FOX=6 GPY=7 HQZ=8 IRÆ=9, It's the Norwegian alphabet, that's why there are some extra letters)

So how do I set up my Excel so that is ANY name is typed in I can get it out into a number from the values assign?

Macro To Split Words
I have a excel sheet that contains about 8000 entries... I need to create a macro to help me. my file is like this:

123
RT4
eliott.billy
mark.garth
elena.david

I would like to split first name and last name. All the ligne that contains "." split it in 2. Example: eliott.billy will become eliott (column A) billy (column B)

Split Function: Multiple Spaces Between Two Words
I am trying to parse a formatted text file. I am using the SPLIT function as

arr() = split(cline," ")

where cline is an input line. if the line input(cline) has multiple spaces between two words, how would it split that.

Eg :

abcd defg fefdcs fasdfasdsa

would the output of above be
arr(0) = abcd
arr(1) = defg
arr(2) = fefdcs
arr(3) = fasdfasdsa

How To Split Texts Into Words (collecting Word And Compounds)
i have wordlists which i would like to enhance through texts. For that purpose i need a macro which reads a text and splitts it into words and put the words into three columns. Lets assume the column where the words are supposed to be put is columns A,C and E. The column A should contain single words containing no spaces from Text, column C should contain compound words which have one space between them and in column E those compounds which have two spaces. Now i will put my existing wordlist in column G before i start splitting texts. The macro should put only those words from text into column A,C and E which dont already exist in columns A,B,C,D,E,F and G. In Column B i will place the corrected or checked words from column A. In column D i will type the corrections and checked versions of those compunds existing in column C. And the column F will contain the compound words which are corrected and checked from Column E.

Column A--> single words splitted from text through macro (containing no spaces)
Column B--> corrected and checked versions of words from column A through user
Column C--> compound words containing one space splitted from text through macro (for example:"etwas möchten" or "do something")
Column D-->corrected version of C through user
Column E-->compound words containing two space splitted from text through macro (for example:"sich uerberzeugen lassen" or "down in dumps")
Column F-->corrected E
Column G--> existing dictionary wordlist through user

Signes like ".", ":",";", "/" or quotation signe itself should be seen as seperator. And the words or compounds splitted from the text should not contain these signs.

The text will be put in another sheet in the same excel file. Lets call that sheet "text". The macro should search for words through whole sheet ignoring empty cells or columns.

None of the columns should be filtered or ordered. The columns shound not be deleted as well. That way the user wont have to correct the same word each time cus the corrected as well as the original words will be there.

Split One Cell Data Into Different Cells
macro of the attached sheet.

Actaully i want a macro which are splits one cell data into deiffernt cells or rows.

Split Data From 1 Cell Into 2 Cells
I have a list of first names and surnames, the first name and surname are in one cell together but seperated by a commer.

For example in A1 would be Steve, Jones

What I want to do is have this split into two new cells. So in A2 I would have his first name and in A3 his surname. Formula to do this is what I cant get to work.

Way To Split A Single Cell In To Two Cells?
Is there a way to split a single cell in to two cells?

Autosplit Two Words From One Cell Into Two Cells
I have database of customers and one collum is labeled "Name and Family name". I want excel to split this records in two collums, ergo one labeled Name, the other one Family name.

Note: there are also some names like Furio Alipo Novanta, so in that case I want excel to keep Furio in first cell, and move other stuff next to it.

Split Cell And Insert (not Replace) The New Cells
I need to make sure that splited cells do not replace content of other cells. For example, if A1 has "SDR232, SDR634", this code will split them and put A1 to be "SDR232" and A2 to be "SDR634". BUT what it does is that it actually replaces whatever I have in A2. Is ther anyway to avoid replacing the content of A2?

Sub tst()
Dim X As Variant
X = Split(Range("A1").Value, ",")
Range("A1").Resize(UBound(X) - LBound(X) + 1).Value = Application.Transpose(X)
End Sub

Search Character In Cell And Split To Two New Cells
I have a spreadsheet that I have to extract from a web based report at work. The problem is that the column that contains the department name also contains the department code in brackets. For example cell A2 will have: (DE) Department A and cell A3 may be (DEPT) Department B.

Now as seen in the example above a code can range from 2 to 4 letters. I wondered if there was a way in code that would search for the ')' character and copy that to the M column and then copy the department name into the N column. So M2 would have 'DE' and column N2 will have 'Department A'.

Also in column G contains the grade name and grade point which are separated by a '/' I would like this to be copied to 2 separate cells say O2 and P2 and so on.

I know this can be done by a formula but I have to do this every month and it would be nice to just click a button to run a macro in my personal.xls file.

The row number various and are usually several thousand. I have attached a sample spreadsheet that only contains 4 rows of data.

Separate/Split Data In One Cell To X Cells
How do I split data in one cell into three cells?

example:

From

(A1)100 CARIBBEAN VILLAGE DR

To

(B1)100
(C1)CARIBBEAN VILLAGE
(D1)DR

Not all the data is the same, some have more words than others.

Split Data In Single Cell To Other Cells
What I got going on is a program I use for reporting is shooting out information.. while most of the information it sends to an excel workbook is sectioned by cell, there is a good chunk of information that's dumped into 1 cell. Is there a macro, or something, I can do to separate the information in this single cell, into separate cells? Auto Merged Post Until 24 Hrs Passes;Here is an example of the report. You'll notice a bunch of information in the 'Description' section. What I want to be able to do is run a macro that will seperate the 'Item Number', 'URL', 'Serial Number', 'Model Number', and 'Details' information into seperate cells.

Macro To Add 2 Blanks Cells Below Cell With Words
REPLACE ENGINE OIL & FILTER, VEHICLE INSPECTION, FILL FLUIDS
RESET THE OIL REPLACEMENT REMINDER LIGHT.
(blank row )
(blank row )
E

I have an excel file with many columns containing information at the end of each column like this.

It lists car verbage, then 2 blank cells are required , followed by an E.

I was wondering if a macro could be used to where it looks at a column, finds where the verbage ends, and automatically inserts 2 blank cells below it followed by an E. In other words it needs to make sure only 2 blank cells are after the verbage and an e should follow in the cell below. If the column has 3 blank cells below the verbage it should fix it and add the E at the appropriate space.

Split Data In A Cell And Get The Value For The Split Data From A Different Table
Here's my problem. I have a cell where there are many data strings seperated by ",". Each data string has a seperate value of its own like for e.g:
A2: aa,ab,ac

String Value
aa 1
ab 1
ac 3

What I want it accomplish is that, split the A2 cell into the different data string entities seperated by ",", then get the corresponding value of each of the data string entity, and to take the average of all the values of the different data string entities.

Sum Up Cells Containing Certain Words
im currently wonderin if the SUMIF function can have a WHERE syntax?
because i want to add up cells which contain these:

A B
1 VC-ON US 2
2 MC-ON US 5
3 MC-OFF US (STD) 8
4 VC-OFF US (PREM) 9

in another separate cell, i want to retrieve the sum of numbers with the words ON US in column A. so the final result will be 7.

Replace All The Times That These Words Appear In The Rest Of The Sheet With The Words In Column B
I have a column of words in Column A and I want to replace all the times that these words appear in the rest of the excel sheet with the words in Column B. If someone has already answered a similar problem link me to the thread because I can't find anything.

Split An Amount Into Different Cells
Is there an "easy" way (a formula) to split an amount into different cells (periodes) (see the example under)?:

Amount Periode Jan Feb Mar
900 USD 01.01.10-31.03.10 300 300 300
Formulas?

VBA To Split Size Of Cells
I have created a VBA which organizes data from duplicate accounts into a single row so that it is properly formatted for our email system. The one issue I am having trouble handling is cell overflow. Column B cannot end up with more than 5 pieces of information. Each piece of info is seperated by a comma. If there is overflow, the extra data needs to be moved to the following column.

With the example I have provided, you will see that after running the macro, cell B2 has 18 pieces of information. I need to expand the macro so B2 contains 5 pieces, C2 contains 5 pieces, D2 contains 5 pieces, etc.

Show Cells That Contain 2 Words
I have a list of names, some have first name and surname (in the same cell), and some just have first name.

Is there anything I can do to only show the cells that contain a first name and surname?

Seperating Words To Different Cells
I have hundreds of file names, and to cut a long explanation short, they are exported as a CSV file to excel. In order indentify the owner of the file I need to rename the file with a commar where you see the dash or the underscore in order to have the name appear in the next cell, as can be seen with Syma and Kevin below, so I can then sort the columns etc etc.

I know there is a formula that I can use to achieve this, ie have syma.pdf and kevinc.pdf in the next cell.

I think it works on identifying how many characters along the name and then send i to the next cell.

as you can see below, there is no set amount of characters to put into a formula.

Could I say, for example, if after dash /underscore put next word in next cell?

t5 mon a2 w6-syma-0003.pdft5 mon cst w2_dellwynneh.pdft5 mon a23 w3_MASUMS.pdft5 mon cmn201a w1- syma.pdft5 thurs wiabe w2_kevinc.pdft5 thurs wiabe2 w2_kevinc.pdf

Combining Words In Cells
I'm looking to take words which are originally in their own separate cells and "combining" the words all into one single cell.

Is there a function that will be able to do this for me?

Extract Certain Words From Cells
i have a column where the sponsor has a name of a race and i wish to remove the sponsors name and replace it with something of the sentence

for example

Barton And Guestier Top Novices' Hurdle Class A Grade 2

i wish to just locate the Novices' Hurdle part and change that particual cell to nov hurdle without the sponsors name
is it easy to extract this info

Clearing Cells Containing Specified Words
I am trying to clear the contents of cells in a very large spread sheet containing certain words. I am running the following macro and it will only do the first part, so it will clear cells containing "deceased" but stops at "esa". There may be any number of other words or text in the cell and I want it to delete cells with "esa" by itself so for ex. not delete cell containing "vanesa". I am very amateur so I am sure this is something simple but I cannot find the answer or figure it out for myself.

Sub DeleteAll()
Dim lCount As Long
Dim rFoundCell As Range
Dim rLookRange As Range
Set rFoundCell = Range("A1")
Set rLookRange = ActiveSheet.UsedRange
For lCount = 1 To WorksheetFunction. CountIf(rLookRange, "*deceased")
Set rFoundCell = rLookRange.Find(What:="deceased", After:=rFoundCell, _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
rFoundCell.ClearContents.......................

Auto-calculate 2 Column That Contains Numbers And Words Words
I've been using conventional method to do this and it's time consuming. I would like to total up 2 column. A multiply B to be exact. Below are some examples:

Table 1 - Before totaling up:

Quantity
Product
5
2 x Button A White
3
4 x Button B Pink
4
5 x Ribbon A Black
2
6
2 x Cloth A Blue

Table 2 - After totaling up:

Quantity
Product
10
Button A White
12
Button B Pink
20
Ribbon A Black
6
12
Cloth A Blue

I need to have the sum of the "Quantity" multiply "Product". Or in short A x B.
And the end result need to have the number and "x" sign removed while keeping on the the products names. (2 x ) Take note it's "number" space "symbol" space.

Split The Characters And Display Other Cells
I want to accept a string, well typically a name say "Manik" from one of the cells in Excel say "B2"; then split it as characters M a n i k and display it in five other cells like say from D2:D6. how can I do it? Also the name may change its not a fixed string.

Copy Row And Split Values Within Cells
i am trying to copy a row a certain number of times based on the number of values within a cell. (E4:E--) and then split the values contained in that cell into unique rows. i have the following:

A B C D E F
3/20/07ARROW INC 2065114 \$10,555.24 606 4/6/07
3/18/07NORTON 2017304 \$13,206.15 715 4/6/07
3/22/07HARKMAN 2025685\$8,127.04 167 226 452 4/6/07
3/19/07AMEREX INC 2019933\$14,131.64 186 189 4/6/07
3/23/07G SQUARED 2029062\$8,587.68 204 233 4/6/07

what i need is:

A B C D E F
3/20/07ARROW INC 2065114 \$10,555.24 606 4/6/07
3/18/07NORTON 2017304 \$13,206.15 715 4/6/07
3/22/07HARKMAN 2025685\$8,127.04 167 4/6/07
3/22/07HARKMAN 2025685\$8,127.04 226 4/6/07
3/22/07HARKMAN 2025685\$8,127.04 452 4/6/07
3/19/07AMEREX INC 2019933\$14,131.64 186 4/6/07
3/19/07AMEREX INC 2019933\$14,131.64 189 4/6/07
3/23/07G SQUARED 2029062\$8,587.68 204 4/6/07
3/23/07G SQUARED 2029062\$8,587.68 233 4/6/07

the number of rows will vary and obviously, the number of rows will increase as the rows are copied X times to correspond to the number of values contained within cell E.

it is not showing correctly, but cell A is date, cell B is company name, cell C is PO number, cell D is price, cell E is Department numbers and cell F is end date.

Text Split For The Name Only In Cells Where Contains The Word Name
I would like to do a text split for the name only in cells where contains the word "Name". For example: Name A&A Enterprize

Text split function for it is =MID(A1,FIND(" ",A1)+1,255)
so it only recognizes A&A Enterprize.

How would I add an IF, Then function (If the any cell contains the word Name, apply the text split function, for cells don't have the word Name, just leave it blank) if i have to do this for a large data file so i dont have to copy this function for every cell that contains the word Name.

Split Cells By Bold Text
I have a sheet full of names, addresses and phone numbers in one cell like this

Albert Young 16 teststreer 12C..................7888-6338

The name Albert Young is bold. The thing is I would like to split the cell putting the names in another colomn. Then it would be ideal to split the addresses and phone numbers as well. But I have no idea how to split any of these. I scanned this from a phone book, the dots are different on each row.

Split Cells Into 2. Space As Delimiter
I recently got this task by my work employer to transfer information from several non-organized Excel-documents into one, complete and organized one.

The thing I have to organize right now is a column with thousands of zipcodes and zones in one single cell, only separated by spaces, like this:

Zipcode Zone
115 54 Gothenburg
443 67 Skane

What I want to do is instead of having to go through 24h of braindead control/paste is to use some easy and fast function or script that could pull out the last piece of string of information in every cell in that column into its own separate cell.

Although I am using Open Office Calc/Gnumeric on Ubuntu Dapper, if a script is necessary and only work with Excel on Windows/Mac, that is no big problem for me to solve. So please, any suggestion is welcome.

I will attatch two examples for you to look at, to get the whole picture.

Keywords As Delimiter To Split Cells
I've got a column of data containing addresses. What I want to do is split the column after certain keywords such as "street", "road", "close" etc and move any words that come after these in the cell into the next cell to the right.

For example, in one cell I might have "54 Burberry Road Finsbury London"... what I want to do is have part of the text remain in the original cell i.e. "54 Burberry Road" and the rest, "Finsbury London", moved to the cell on the right.

Not all cells in the column will match this format so if it doesn't find a keyword, nothing will occur and it will move to the next cell down etc. until it reaches the end of the column.

There are no delimiters (apart from the spaces) between the words.

I haven't figured out all of the keywords that I will need to search for yet but I should be able to extrapolate from something fairly generic.

Delete Words With Certain Colour In Cells
May i know how to delete the words which is red color in cell. What is the code like

Restrict Cells To List Of Words
DATA VALIDATION IN MY CODE

Below is my code which looks at Table1 and converts the cell to the appropriate colour when the cell equals the Case

What i would like to do is also have the Case be Data Validation anything else error

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rRow As Range

Dim icolor As Integer
Dim ifont As Integer

With Application
.CellDragAndDrop = False
.CutCopyMode = False
End With

Formula To Count Words In Cells
I need a a formula that will count the number of times a word or phrase appears in a column of cells and assign a number

For example....

Big Red Ford Truck = 1
Ford Truck = 3
Red Ford Truck = 2

After i get the formula, I can sort by "greater than 2"

Searching Text In Cells For Words
I have a column that is filled with text of varying lengths and I'd like to search through each cell in that column looking for a specific word or words. Unfortunately the length of the text varys greatly between each cell and there is very little uniformity so I need to be able to search through the entire entry in each cell and then highlight that row if a specific word or words are found.

I'd also like to be able to add a number "1" in another column on the same row if the search finds a word or words. Any help would be greatly appreciated.

If the cell only contains the exact word or string I'm looking for then it's easy but I can't figure out how to search through text in a cell that contains more than I'm looking for.

example: Lets say I'm loooking for "caught fire"
column Q contains:
1 "The computer caught fire after several hours"
2 "A house on the hill caught fire"

If "caught fire" exists in the cell being checked, then highlight the row and put a 1 in a specific column, lets say J.

Search Cells For Parts Of Words
I am looking to search a column of data (text) and have copy relevant cells to another spreadsheet.

Example:

Enter "Cat" in a userform, and the program would copy all of the following rows to a new spreadsheet:

Cat
cat
the cat
123 cat
cat123
catters
CAT

Think you guys may get the picture...if cat appears in any way in the cell, I would like that cells contents on a new spreadsheet.

Extracting Words In Separate Cells
I need a formula which would from one cell extract the words in separate cells. I have probelms because the words in the sentence in the starting cell are not separate by spaces but dots. For example: How.do.I.extract.words.from.this.sentence?

Split Cells Based On Letters Vs. Numbers
I have a column in one of my spreadsheets that I would like to split. There's currently not anything that can be used as a delimiter, nor can I use fixed width. the cells in question start with numbers and end with letters.

Select Random Row, Split Cells To Different Worksheets
I am trying to write a macro to:

1. Randomly selects 50 rows from 834 on "worksheet 1". There are only two cells per row.

2. Then, it clears "worksheet 2" and "worksheet 3".

3. From each selected row in "Worksheet 1", it splits the two cells and copies the results into two different worksheets, one column per sheet.

4. The rows in the two new worksheets should be congruent (i.e. same selected order from worksheet 1). Keeping the order the same is important.

This is what I have so far:

--------------------
Sub Macro1()
Dim rng As Range
Dim iRow As Long
With Rows("1:834")
Do
iRow = Fix(Rnd() * 834 + 1)
If rng Is Nothing Then
Set rng = .Rows(iRow)
Else
Set rng = Union(rng, .Rows(iRow))
End If
Loop Until rng.Areas.Count >= 50
End With

rng.Select

Selection.Copy Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

End Sub
-------------------

Split Address Blocks Across Multiple Cells
I have cells of block addresses that are delimited (tab I believe - there's a
small square that appears).

I need to split the addresses out into separate columns for each line of address. I tried using the Text to Columns wizard as suggested by Excel Help, but ended up with only the first line of address being posted in the cell to the right (the rest of the address was nowhere to be seen).

I'm sure I've done this before but can't for the life of me remember how I did it.

Split Data Into 2 Cells, Text To Columns
i have cells with city and state in them and i'm trying to separate the one column into two columns. the problem is, i'm trying to keep the city name in one column and the state in the other. some of my cells have two word cities like new albany, or upper arlington. the text to columns feature is separating those cells into 3 columns not 2. is there a way to do this?

example:
worthington, oh
upper arlington, oh

text to columns splitting upper arlington into 3 different cells because the only delimiter in the cell is a space. i need to keep upper arlington in one cell and oh in another.

Split Multi-Lined Cells Into Columns
So I have a worksheet filled with a lot of text in individual cells in one column. What I would like to do is split up the text into different columns in one row so that I can use it easier. The data would be seperated by blank lines within the cell (basically when you hit alt+Enter in the cell). Sample data of a cell is below...

Cell A1:
_____________________________
Directions: Baking an Apple Pie

First you must .... etc

Total time required: 30 minutes
_____________________________

What I would love to be able to do is split up the above sample cell into three different columns, in the same row. So the above cell would become...

Cell: A1 Cell: B1 Cell: C1
____________________________________________________________________________
Directions: Baking an Apple Pie | First you must .... etc | Total time required: 30 minutes
____________________________________________________________________________

And then so on and so forth for the rest of the data in that column. I realize that VBA code will be needed for the above... I searched the forum for something that would address this particular issue but have had no luck.

Split 1st & Last Names & Split Addresses After 1st Comma
I'm using Excel 2000 and I have a spreadsheet with 4 columns (A-D) and many (500+) rows.

Part 1:
#########################################
Colums A & B both contain identical data - a first name and a last name in the format "John Doe".

I want the second word ("Doe") removed from all cells in Column A so that only the first name remains, and I want the first word ("John") to be removed from every cell in Column B so that only the last name remains.

So, where A1 & B1 both started with the data "John Doe" now A1 contains only "John" and B1 contains only "Doe".
#########################################

Part 2:
####################################################
Column C contains addresses in the format:
"#5 - 123 Fake Street, Some City, CA 90210"

There is ALWAYS a comma and a space after the street address, then the name of the city or town followed by more data which may include one or more commas.

I would like everything BEFORE the first comma to remain in column C, and everything AFTER the first comma & space to be moved into Column D of the same row. The first comma and space are not needed again.

So, where C1 started with "#5 - 123 Fake Street, Some City, CA 90210", it now only contains "#5 - 123 Fake Street" and D1 now contains "Some City, CA 90210".
####################################################

Find Words - Deleting The Words - And Deleting Some Info After The Words.
I am trying to find certain words in a column and delete the word and characters following. For example, Say I have a column of info as seen below. This is a test of me. I am just experimenting with this stuff. Deleted (6/15/01) Let me know what you think. I am not sure about it all, but I guess I will figure it out. riviledge1 (01/05/06) Now let's see what happens when I try to test it.

I want to find all the "Priviledge1 (01/05/06)" and replace with nothing. Please note, the date will change with each record, so I need to figure out how to tell Excel to find "Priviledge1", delete it and the date behind it. So I want to delete "Priviledge1" and the next 11 characters including the space.

Flag Partial Match Where Cells Contain Key Words
I have a list of customer names. These include one-off customers and companies. Unfortunately, they are not always keyed correctly and in the same format. What I need to be able to do is flag any companies. These will be those that contain key words, such as Ltd, Ltd., Limited, PLC, & Co, & Sons and so on.

My customer list may look like this:

1. Bill Jones & Son
2. Mr B Smith
3. Posh Homes Ltd
4. Posh Homes Limited
5. Mr A Singh
6. Bill Jones & Sons

I then need to flag no.'s 1, 3, 4 and 6 as Companies while 2 and 5 are flagged as non-company.

Count Of Specific Word In Cells With Many Words
Is there a way of counting how many rows have cells containing a specific word. Some rows will have multiple cells with the word in and some will have none. I only want a count of the number of rows and not the number of times the word appears. How can i acheive this with VBA?

Move Text Between Certain Words To Adjacent Cells
how to cut a string from text and copy it to another cell: Example of a TEXT:..........................

This is Text in one cell - I need to cut the BOLD part. It always ( if appears ) is after statement <b>Kod Producenta</b>: and before <br/> It's not always in the same place. but always between statment above. "<b>Kod Producenta</b>: STRING_THAT_NEED_TO_BE_COPIED_TO_DIFFERENT_CELL <br/>" how can i do it with VBA macro? with cpp would be so much easier but still i need to do this in VBA...

Function To Return Common Words To 2 Cells
I'm trying to write UDF which getting RegEx pattern and a certain cell as arguments and returns only matching string. For examples for string "The quick brown fox jumps over the lazy dog", and RegEx pattern "w{4}" the function will return two words "OVER" and "LAZY". What should I change in my code?

Function GetPattern(myPattern As String, myString As String)
Dim regEx As RegExp
Dim Matches As Object
Set regEx = CreateObject("VBScript.RegExp")

With regEx
.Pattern = myPattern
.IgnoreCase = True
End With
GetPattern = regEx.Replace(myString, "\$1")
End Function

Sort On Number Of Words (words With Least Characters First)
I want to sort on number of words, i.e. if a cell contains 1 or 2 words etc, with the cells containing 1 word coming first then cells containing 2 words. Also, if possible, first the cells with fewer characters.

Count Words In Range Mixed In With Other Words
I have tried Sumproduct and Countif and can not get a proper count of rows that contain specific words in multiple columns. I have attached an example spreadsheet where I am looking for a result of 7 rows that contain 1 to 4 specific words within phrases. The example looks for the words: "virus", "spyware", "malware" & "adaware", and ignores any other words like "aware" or "ware".