Separating Data in the same excel column - excel
I have a column of data with multiple value types in it. I am trying to separate out out each value type into a separate column. Below an example of the data:
6 - Cutler, Jay (Ovr: 83)
22 - Forte, Matt (Ovr: 88)
86 - Miller, Zach (Ovr: 80)
I tried to separate the data by a) going to data and clicking text to columns; however, the "Ovr: 80" portion of the data does not separate "Ovr" from 80. I also tried b) to convert to .csv file, but again was unable to separate "Ovr" from "80". Is there a formula I can use to separate this portion of the data from the rest?
I would like the data to be separated into different columns as show below:
6 | Cutler, | Jay | Ovr | 83
22 | Forte | Matt | Ovr | 88
86 | Miller | Zach | Ovr | 80
Any insight is much appreciated!
Select the cells you wish to process and run this macro to place results in the cells to the right of the selected cells:
Option Explicit
Sub dural()
Dim r As Range, s As String, ary
Dim i As Long, a
For Each r In Selection
s = r.Value
If s <> "" Then
s = Replace(Replace(s, "-", " "), ",", " ")
s = Replace(Replace(s, "(", " "), ")", " ")
s = Application.WorksheetFunction.Trim(Replace(s, ":", " "))
ary = Split(s, " ")
i = 1
For Each a In ary
r.Offset(0, i).Value = a
i = i + 1
Next a
End If
Next r
End Sub
using the method above your could do something like this...
first clean the text so its more manageable, using this formula and copying in a column you can clean it so it become a space delimited set
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"- ",""),",",""),"(",""),")",""),":","")
from there just copy the values the formula give you to a new sheet maybe and then use 'Text To Columns to get it split into columns.
For the record I do not recommend this method if you are willing to do the text to column option.
Functions used for this solution are:
LEFT function
FIND function
MID function
for your first column of text use the following:
=left(A1,find(" ",A1))*1
That will pull out the first number presuming you do not have any leading spaces. The *1 converts from text to a number.
for your second column of last times use the following:
=MID(A1,FIND("-",A1)+2,FIND(",",A1)-(FIND("-",A1)+2))
Provided you have a coma and a dash as indicated in your example data you will not get an error and it should pull the last name without the coma.
For your third column of first names follow the same general technique as last names with the following,
=MID(A1,FIND(",",A1)+2,FIND("(",A1)-2-(FIND(",",A1)+2)+1)
Follow the similar pattern to get you over column
=MID(A1,FIND("(",A1)+1,FIND(":",A1)-1-(FIND("(",A1)+1)+1)
and finally to get your age column use this:
=MID(A1,FIND(":",A1)+2,FIND(")",A1)-1-(FIND(":",A1)+2)+1)
copy the above formulas down as far as you need to go.
Related
String comparison between two cells containing text but one containing multiple delimiters
I wish to compare two cells in excel which contain similar text but one containing different delimiters in it. I want to ignore the delimiters while comparing the strings. Eg. John Doe: Mary Ann. Are Married/ John Doe Mary Ann Are Married I am totally unaware of macros. Any leads are appreciated!
If you have Office 365 Excel then we can use this array formula: =TEXTJOIN("",TRUE,IF(((CODE(UPPER(MID(A1,ROW(INDIRECT("1:" & LEN(A1))),1)))>=65)*(CODE(UPPER(MID(A1,ROW(INDIRECT("1:" & LEN(A1))),1)))<=90))+(CODE(UPPER(MID(A1,ROW(INDIRECT("1:" & LEN(A1))),1)))=32),MID(A1,ROW(INDIRECT("1:" & LEN(A1))),1),""))=TEXTJOIN("",TRUE,IF(((CODE(UPPER(MID(A2,ROW(INDIRECT("1:" & LEN(A2))),1)))>=65)*(CODE(UPPER(MID(A2,ROW(INDIRECT("1:" & LEN(A2))),1)))<=90))+(CODE(UPPER(MID(A2,ROW(INDIRECT("1:" & LEN(A2))),1)))=32),MID(A2,ROW(INDIRECT("1:" & LEN(A2))),1),"")) Being an array formula it must be confirmed with Ctrl-Shift-Enter instead of Enter when exiting edit mode. If done correctly then Excel will put {} around the formula.
You can try this: Function CompareByLetter(t1 As String, t2 As String) As Boolean CompareByLetter = CleanString(t1) = CleanString(t2) End Function Function CleanString(t As String) As String Dim t1, x, c For x = 1 To Len(t) c = Asc(UCase(Mid(t, x, 1))) If (c >= 65 And c <= 90) Or c = 32 Then t1 = t1 & Mid(t, x, 1) Next x CleanString = t1 End Function Then you can use it as a formula: =CompareByLetter(A1,A2) This macro just compares strings by only keeping letters and spaces. You can also use =CleanString(A1) to remove all other characters from your strings. To use this in your project, open excel and press ALT+F11 Right click off to the left side and select Insert -> Module Paste the code into the module window on the right (see attached). Image mirror since Stackoverflow image hosting seems down After that, you should be able to use the functions as you would a formula. Just enter =CompareByLetter(A1,A2) in a cell.
Split Cell by Numbers Within Cell
I have some fields that need to be split up into different cells. They are in the following format: Numbers on Mission 21 0 21 Numbers on Mission 5 1 6 The desired output would be 4 separate cells. The first would contain the words in the string "Numbers on Mission" and the subsequent cells would have each number, which is determined by a space. So for the first example the numbers to extract would be 21, 0, 21. Each would be in its own cell next to the string value. And for the second: 5, 1, 6. I tried using a split function but wasn't sure how to target the numbers specifically, and to identify the numbers based on the spaces separating them.
Pertinent to your first case (Numbers on Mission), the simple solution could be as shown below: Sub SplitCells() Const RowHeader As String = "Numbers on Mission" Dim ArrNum As Variant ArrNum = Split(Replace(Range("A1"), RowHeader, ""), " ") For i = 1 To UBound(ArrNum) Cells(1, i + 2) = ArrNum(i) Next Cells(1, 2) = RowHeader End Sub The same logic is applicable to your second case. Hope this may help.
Unless I'm overlooking something, you may not need VBA at all. Have you tried the "Text to Columns" option? If you select the cell(s) with the information you would like to split up, and go to Data -> Text to Columns. There, you can choose "delimited" and choose a space as a delimiter, which will split your data into multiple cells, split by where the space is. edit: Just realized that will also split up your string. In that case, when you are in 3rd part of the Text to Columns, choose a destaination cell that isn't the cell with your data. (I.E. if your data is in A1, choose B1 as destination, and it'll put the split info there. Then just combine the text columns with something like =B1&" "&C1&" "&D1)
I was able to properly split the values using the following: If i.Value Like "*on Mission*" Then x = Split(i, " ") For y = 0 To UBound(x) i.Offset(0, y + 1).Value = x(y) Next y End If
Prevent Partial Duplicates in Excel
I have a worksheet with products where the people in my office can add new positions. The problem we're running into is that the products have specifications but not everybody puts them in (or inputs them wrong). Example: "cool product 14C" Is there a way to convert Data Valuation option so that it warns me now in case I put "very cool product 14B" or anything that contains an already existing string of characters (say, longer than 4), like "cool produKt 14C" but also "good product 15" and so on? I know that I can prevent 100% matches using COUNTIF and spot words that start/end in the same way using LEFT/RIGHT but I need to spot partial matches within the entries as well. Thanks a lot!
If you want to cover typo's, word wraps, figure permutations etc. maybe a SOUNDEX algorithm would suit to your problem. Here's an implementation for Excel ... So if you insert this as a user defined function, and create a column =SOUNDEX(A1) for each product row, upon entry of a new product name you can filter for all product rows with same SOUNDEX value. You can further automate this by letting user enter the new name into a dialog form first, do the validation, present them a Combo Box dropdown with possible duplicates, etc. etc. etc. edit: small function to find parts of strings terminated by blanks in a range (in answer to your comment) Function FindSplit(Arg As Range, LookRange As Range) As String Dim LookFor() As String, LookCell As Range Dim Idx As Long LookFor = Split(Arg) FindSplit = "" For Idx = 0 To UBound(LookFor) For Each LookCell In LookRange.Cells If InStr(1, LookCell, LookFor(Idx)) <> 0 Then If FindSplit <> "" Then FindSplit = FindSplit & ", " FindSplit = FindSplit & LookFor(Idx) & ":" & LookCell.Row End If Next LookCell Next Idx If FindSplit = "" Then FindSplit = "Cool entry!" End Function This is a bit crude ... but what it does is the following split a single cell argument in pieces and put it into an array --> split() process each piece --> For Idx = ... search another range for strings that contain the piece --> For Each ... add piece and row number of cell where it was found into a result string You can enter/copy this as a formula next to each cell input and know immediately if you've done a cool input or not. Value of cell D8 is [asd:3, wer:4] Note the use of absolute addressing in the start of lookup range; this way you can copy the formula well down. edit 17-Mar-2015 further to comment Joanna 17-Mar-2015, if the search argument is part of the range you're scanning, e.g. =FINDSPLIT(C5; C1:C12) you want to make sure that the If Instr(...) doesn't hit if LookCell and LookFor(Idx) are really the same cell as this would create a false positive. So you would rewrite the statement to ... ... If InStr(1, LookCell, LookFor(Idx)) <> 0 And _ Not (LookCell.Row = Arg.Row And LookCell.Column = Arg.Column) _ Then hint Do not use a complete column (e.g. $C:$C) as the second argument as the function tends to become very slow without further precautions
How to concatenate a list of words into a sentence with "and" before last item in Excel?
I want to join a list of words in Excel (not in VBA... with an Excel formula in the worksheet) to the following specifications: Formula should ignore empty cells. Formula should concatenate the words with "and" before final item if there is more than one item in the array of cells. Formula should add "," between items if there are more than two items. Examples: A1=dog A2=cat A3=bird A4=fish Result would be: dog, cat, bird, and fish A1=dog A2=cat A3=(empty cell) A4=fish Result would be: dog, cat, and fish A1=dog A2=(empty cell) A3=bird A4=(empty cell) Result would be: dog and bird A1=dog A2=(empty cell) A3=(empty cell) A4=(empty cell) Result would be: dog Pretty please? I promise I've searched and searched for the answer. Edit: Thank you, ExcelArchitect, I got it! This was the first time I'd ever used a custom function. You use it just like any other function in the worksheet! This is so great. Not to push my luck, but how to do I get two cells to concatenate with my result if there is only one word in the result and two other cells if there is more than one word? Example: If the function you made for me returns just "dog", I'd want it to concatenate a cell with the text (B1) "My favorite thing to wear is a " and then "dog" and then another cell (B2) that says " costume." to make the sentence "My favorite thing to wear is a dog costume." But if it returns more than one animal, it would concatenate two other cells like this: Cell C1 "My favorite things to wear are " and "dog, cat, and bird" and Cell C2 " costumes." so that it would say "My favorite things to wear are dog, cat, and bird costumes." If you're curious, my data really has nothing to do with animals or costumes. I am writing a program that will score a psychological test and then create an interpretive report from the test scores (I'm a psychologist). -Mary Anne
Mary Anne: This would be a great time to use VBA! But if you don't want to, there is a way to accomplish your goal without it. You have to account for all of the possible outcomes here. With 4 different animals that means you have 15 outcomes: Your equation just has to take into account all 15. It is VERY long and drawn out as a result. As such, if you have more than 4 animals that you'd like to turn into phrases, you should go the VBA route. Here is my set up: The formula in A7 is the following: =IF(AND(A2<>"", A3="", A4="", A5=""), A2, IF(AND(A2="", A3<>"", A4="", A5=""), A3, IF(AND(A2="", A3="", A4<>"", A5=""), A4, IF(AND(A2="", A3="", A4="", A5<>""), A5, IF(AND(A2<>"", A3<>"", A4="", A5=""), A2&" and "&A3, IF(AND(A2<>"", A3="", A4<>"", A5=""), A2&" and "&A4, IF(AND(A2<>"", A3="", A4="", A5<>""), A2&" and "&A5, IF(AND(A2="", A3<>"", A4<>"", A5=""),A3&" and "&A4, IF(AND(A2="", A3<>"", A4="", A5<>""), A3&" and "&A5, IF(AND(A2="", A3="", A4<>"", A5<>""),A4&" and "&A5, IF(AND(A2<>"", A3<>"", A4<>"", A5=""), A2&", "&A3&", and "&A4, IF(AND(A2<>"", A3<>"", A4="", A5<>""), A2&", "&A3&", and "&A5, IF(AND(A2<>"", A3="", A4<>"", A5<>""), A2&", "&A4&", and "&A5, IF(AND(A2="", A3<>"", A4<>"", A5<>""), A3&", "&A4&", and "&A5, A2&", "&A3&", "&A4&", and "&A5)))))))))))))) Here it is via Excel: Mary Anne - I'm such a nerd that I had to do this. Here is the VBA solution, and you can have as many names as you want! Paste this code into a new module in the workbook (go to Developer -> Visual Basic, then Insert -> New Module, and paste), then you can use it in your worksheet like a regular function. Just give it the range where the names are and you should be good to go! -Matt Function CreatePhrase(NamesRng As Range) As String 'Creates a comma-separated phrase given a list of words or names Dim Cell As Range Dim l As Long Dim cp As String 'Add commas between the values in the cells For Each Cell In NamesRng If Not IsEmpty(Cell) And Not Cell.Value = "" And Not Cell.Value = " " Then cp = cp & Cell.Value & ", " End If Next Cell 'Remove trailing comma and space If Right(cp, 2) = ", " Then cp = Left(cp, Len(cp) - 2) 'If there is only one value (no commas) then quit here If InStr(1, cp, ",", vbTextCompare) = 0 Then CreatePhrase = cp Exit Function End If 'Add "and" to the end of the phrase For l = 1 To Len(cp) If Mid(cp, Len(cp) - l + 1, 1) = "," Then cp = Left(cp, Len(cp) - l + 2) & "and" & Right(cp, l - 1) Exit For End If Next l 'If there are only two words or names (only one comma) then remove the comma If InStr(InStr(1, cp, ",", vbTextCompare) + 1, cp, ",", vbTextCompare) = 0 Then cp = Left(cp, InStr(1, cp, ",", vbTextCompare) - 1) & Right(cp, Len(cp) - InStr(1, cp, ",", vbTextCompare)) End If CreatePhrase = cp End Function Hope that helps! Matt, via ExcelArchitect.com
VBA is simpler. A formula is quite complicated, since Excel has no native functions allowing concatenation of a range. However, given that you have written that you would have up to eight animals, it is doable with the following formula which concatenates the contents of A1:A8 according to your rules. You can change those locations in the formula in the obvious locations. I made one change: I may be wrong, but I believe English rules indicate that the comma preceding the last and should be omitted, so I did so. It could be added in if necessary. EDIT: Further investigation reveals a difference between US and UK rules: US rules are as you requested, UK rules omit the comma before the conjunction. I will modify the formulas and UDF to comply with US conventions. In the formulas, the modification is to place a comma immediately prior to the and. The change in the UDF is likewise minor. The formula was constructed from the following sequences: So putting those formulas together, so as only to refer to A1:A8, we wind up with this monster: =SUBSTITUTE(IFERROR(SUBSTITUTE(MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(CONCATENATE(",",A1,",",A2,",",A3,",",A4,",",A5,",",A6,",",A7,",",A8,","),",,",","),",,",","),",,",","),2,LEN(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(CONCATENATE(",",A1,",",A2,",",A3,",",A4,",",A5,",",A6,",",A7,",",A8,","),",,",","),",,",","),",,",","))-2),",",",and ",LEN(MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(CONCATENATE(",",A1,",",A2,",",A3,",",A4,",",A5,",",A6,",",A7,",",A8,","),",,",","),",,",","),",,",","),2,LEN(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(CONCATENATE(",",A1,",",A2,",",A3,",",A4,",",A5,",",A6,",",A7,",",A8,","),",,",","),",,",","),",,",","))-2))-LEN(SUBSTITUTE(MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(CONCATENATE(",",A1,",",A2,",",A3,",",A4,",",A5,",",A6,",",A7,",",A8,","),",,",","),",,",","),",,",","),2,LEN(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(CONCATENATE(",",A1,",",A2,",",A3,",",A4,",",A5,",",A6,",",A7,",",A8,","),",,",","),",,",","),",,",","))-2),",",""))),MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(CONCATENATE(",",A1,",",A2,",",A3,",",A4,",",A5,",",A6,",",A7,",",A8,","),",,",","),",,",","),",,",","),2,LEN(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(CONCATENATE(",",A1,",",A2,",",A3,",",A4,",",A5,",",A6,",",A7,",",A8,","),",,",","),",,",","),",,",","))-2)),",",", ") Here is a VBA solution which will allow for any number of items; it concatenate according to the same rules as above. Option Explicit Function ConcatRangeWithAnd(RG As Range, Optional Delim As String = ", ") Dim COL As Collection Dim C As Range Dim S As String Dim I As Long Set COL = New Collection For Each C In RG If Len(C.Text) > 0 Then COL.Add C.Text Next C Select Case COL.Count Case 0 Exit Function Case 1 ConcatRangeWithAnd = COL(1) Case 2 ConcatRangeWithAnd = COL(1) & " and " & COL(2) Case Else For I = 1 To COL.Count - 1 S = S & COL(I) & ", " Next I ConcatRangeWithAnd = S & "and " & COL(COL.Count) End Select End Function
With the new TEXTJOIN function, this can be done very easily. Step 1: Use TEXTJOIN function with the ", " delimiter, and set the ignore_empty to TRUE. This will give you comma separated, concatenated string, ignoring the blank values. Step 2: Count the number of not blank entries in the list using COUNTA function. And subtract 1 from it. You might want to floor the value at 1 using the MAX function at this point. Step 3: Use the SUBSTITUTE function to replace the last instance of the comma, which was calculated in Step 2, with a " and ". Putting it all together: =SUBSTITUTE(TEXTJOIN(", ",TRUE,A1:A14),", "," and ",MAX(1,COUNTA(A1:A14)-1)) Plug in any Range you want instead of A1:A14 in the above formula, and you will get a comma separated concatenate with an and before the last word.
Regarding duplicates: Firstly, I really love Matt's solution and I've added this to my collection of custom functions. What I do miss though is the possibility to remove duplicates from the phrase without removing them from the original range. As you can't create a virtual range (a range that you can just play with in VBA independently from your source data), the solution would probably involve converting the range to an array, running some deduplication code and then creating the phrase from that. My solution (albeit inelegant) is just to use the UNIQUE and FILTER functions to get a deduplicated list elsewhere on the spreadsheet (can be hidden if it bothers you) and to use Matt's function on that. =UNIQUE(FILTER(yourRange,yourRange<>""))
How to filter Excel columns values by Ms-excel formula?
I want to get filter column string from below Data. URL PreFix OutPut ConcatStrings ──────────────────────────────────────────────────────────────────────────────────────────────────────────────── http://AbCD.com/grouponorange-county | Deals | orangecounty | Dealsorangecounty In, Column-1 first column there is an URL string. Column-2 There is fixed words here ex. Deals or any fixed string Column-3 Want to get string after this "http://AbCD.com/groupon" string there is orange-Country then remove all special character so here output is orangeCountry. Coulmn-4 ConcatString " [Column-2] + [Column-3] " How I can do in Microsoft Excel sheet.
Column 4: use the formula =B:B&C:C. Column 3: if you always have the same hostname, you can use: =SUBSTITUTE(A:A,"http://AbCD.com/groupon","") If it has a different hostname, use: =RIGHT(A:A,LEN(A:A)-FIND("groupon",A:A)-LEN("groupon")+1) (edit) Use Alt+F11 to go into VBA, go to Insert > Module, and paste this in: Public Function remove_special_characters(s As String) As String ' based on code by Aaron Blood posted here: ' http://www.ozgrid.com/forum/showthread.php?t=55082&page=1 Dim cur_char As String Dim i As Long For i = 1 To Len(s) cur_char = Mid(s, i, 1) If cur_char Like "[A-Za-z0-9]" Then remove_special_characters = remove_special_characters & cur_char End If Next i End Function You can then use =remove_special_characters() in Excel as a wrapper around the functions above.