I have a large spreadsheet that I need to take the spaces out within the text in each cell. Is there an excel function or macro that can do this? It would save me lots of time rather then having to go in manually and doing it!
View 3 RepliesI have a formula that is dependent upon a column of cells containing text. Cells within this column randomly have an additional space (" ") following the words. With this invisible space, the formula doesn't work as intended.
Since I have an extremely long list of names, is there a way to easily remove additional spaces after words without manually going through each cell and deleting them?
Initially I'm simply copying a data table from a web page using "Ctrl + A" then "Ctrl + C", and then pasting the data straight onto a new worksheet so I can work with it. (After temporarily re-naming the old sheet)
But I keep finding what looks like double-spaces after some of the important text within the Range of cells I'm working with. I need to be able to select & conditional format the values of the text in some columns of the sheet, so need to loose these trailing spaces.
Unfortunately, it's not consistence as to how many spaces trail the text I need. Sometimes it's only one space, sometimes its two spaces ?
So far, I've had mixed success with a recorded "Replace" code but none of the other codes I have found on forum pages either don't work all or seem to give any consistent results. E;g; TRIM, CLEAN
I suspect my problem is, I do not know how to call the code properly, or trying to work with too large a range ?
The start of my code reads:
Code:
Sheets("Data").Select
Sheets("Data").Name = "Old Data"
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Select
ActiveSheet.Name = "Data"
[Code]...
' At the moment I'm using to select the pasted range I want to work on: Range(Range("C46"), Range("C46").SpecialCells(xlLastCell)).Select
This is where I need a code to work on the new Data sheet and remove all the trailing characters.
MsgBox "All data cleaned successfully !", vbInformation + vbOKOnly, "All Done"
I have multiple columns with many rows of unique text in each. Here is an example of what the 1st few rows of column a and b might look like:
A___________B
hboc______dds
jk________optg
hbv_______pl
FIRST:
I would like to be able to sort the rows by the character length in a column. So, it would look like this (if sorted by 1st column):
A___________B
jk_________optg
hbv________pl
hboc_______dds
Second.........
I have rows with "numbers" like 1 250,30 and 1 350,50, but they aren't in number format (I guess this is the problem). I am trying to get rid of the extra space between the "numbers" but the substitute or trim function does not work for me. I also tried to divide and multiply the numbers but it does not work.
I want to get the extra space of and to the number format.
I am trying to get spaces in text from several cells
A5 GH B1 YO E3 AF < I linked these cells with the & =A5&GH&B1 and it comes out like this GHYOAF
I would like it to come out like this : (either with or without the / or underscore in leu of a space)
Additioinally if I use the CONCATATE function it just showes the cells like this A5B1E3 ? Dont understand why its not showing the data rather the cell names & Numbers ?
I'm trying to use the SUBSTITUTE function to remove spaces from my cells in column A. The trouble is My formula is removing all the spaces from the cell. My formula is: SUBSTITUTE(A1," ","")
I do however have many cells that contain a space between characters 5 and 7 and spaces at the end of the cell which have been padded out to 15 characters long.Its only the spaces at the end of the cells I need to remove.
I want to add blank spaces to a cell with text
My cells have up to 14 spaces
If a cell as 1 or 2 characters -I want to add 6 spaces in front of text.
If a cell as 3 or 4 characters-I want to add 5 spaces in front of text.
If a cell as 5 or 6 characters-I want to add 4 spaces in front of text.
If a cell as 7 or 8 characters-I want to add 3 spaces in front of text.
If a cell as 9 or 10 characters-I want to add 2 spaces in front of text.
If a cell as 11 or 12 characters-I want to add 1 spaces in front of text.
Please refer to attached file.
Column A have data and i need VB Code (Not formula) to check each cell in column A and delete any spaces and make sure that there is no spaces after end of the text.
As an example you can see Cell cell A15 thru A22 have spaces after the text so need to delete those spaces
Book1.xlsx‎
I need to take 12ABC1234512345 and turn it into 12A BC 12345 12345 with a vba macro. I've made a formula that works but in this situation a macro would be more ideal.
View 5 Replies View RelatedHow can I enter a number of space in the text file and yhis number is existing in other cell.
Example:
=CONCATENATE(G4," ",I4," ",J4," ",K4," ",L4," ")
the number of spaces is given in other cells.
First space is F1 = 4
Second space is F2 = 8
and so on
I am looking for this for some time. Is there any formula (not vba) to count that how many occurances of spaces are in a text string, spaces could be more than one between the words.
I need help looking at text in a cell that has [] around it such as [big red trucks] and copy that text to the end of the cell and replace the "space' between the words and add '+' signs so the result looks like [big red trucks] [big+red+trucks].
example:
This is what the cell looks like before
[big red trucks] cost 5000 in store
This is what the cell needs to look like after
[big red trucks] cost 5000 in store[big+reg+trucks]
there may be additional text after the ']', I need the phrase with the + signs copied to the end of the cell
I've got a single column worksheet with a varying numbers of characters in each row.
At the end of each row's cell value I must add a 5 char string. Preceding that string I must have enough spaces to make the total length of each row 106 characters.
I've already:Defined and populated the string. Let's call it "strMyString".Established how many rows are in the sheet and stored it in "lngUsedRange"Written the following which cycles through each row establishing how many spaces need to be added:
Dim lngSpacesNeeded As Long
For i = 1 To lngUsedRange
lngSpacesNeeded = 101 - Len(Range("A" & i))
Next i
Now I just need to know what else to put before "Next i" to locate the end of the existing text in the cell and add the number of spaces in "lngSpacesNeeded" then add "strMyString".
I'm outputting some cells to a CSV. At first I tried using the SaveAs function but that renamed my worksheet and didn't work for ranges (as far as I know)
Sub Export()
'Set myADPFile = "C:ADPPCPWADPDATAPRSHWEPI.CSV"
Dim myADPFile As String
myADPFile = "C:PRSHWEPI.CSV"
Dim x As Byte
x = 5
Open myADPFile For Output As 1
While (Not (Sheet3.Range("A" & x).Value = NA))
Print #1, Trim(Sheet3.Range("B" & x).Value), ",", _
Trim(Sheet3.Range("C" & x).Value), ",", _
Sheet3.Range("D" & x).Value, ",", _ ..........................
The values are correct. However, the excess amount of spaces is not. Using the Write function just encases everything in quotation marks. Replacing spaces isn't a good solution because the first row MUST be in that format, and removing all spaces would require more code to put spaces back in. Is there a way to get rid of all the excess spaces surrounding each value?
is there a formula which can locate instances of same text even though due to spaces it may look different? for example, "bad apple" and "badapple" are essentially the same.
View 2 Replies View RelatedLet's say in a cell i have the text ABCD/0123/01234 or ABC/0123/012345
How would i go about extracting whatever is inbetween the / ? i.e. 0123 in both examples?
I have a column of numbers that are in sets of 3. (123 456 789) I need to remove these spaces and just see 123456789.
View 3 Replies View RelatedPublic Function DSPACE(ByVal OCELL As String) As String
Dim sC As String
Dim i As Integer
For i = 1 To Len(OCELL)
sC = Mid(OCELL, i, 1)
If (sC >= "0" And sC <= "9") Or (sC >= "A" And sC <= "Z") Then
DSPACE = DSPACE + sC
End If
Next i
End Function
is there a way to reduce spaces between text stings to one space only when there are many spaces? To make it worse, the number of spaces between the text strings vary. I am using Excel 2010.
View 9 Replies View RelatedI have the below data that I need to concatenate, merge... I'm not sure.
The data looks like this currently:
So that it reads in one sentence, e.g. Northumberland; Newcastle; North Tyneside; South Tyneside (note - no "." or ";" at the end of the string).
I had come up with this formula -
=IF(A11>0,A11&"; ","")&IF(B11>0,B11&"; ","")&IF(C11>0,C11&"; ","")&IF(D11>0,D11&"; ","")&IF(E11>0,E11&"; ","")&IF(F11>0,F11&"; ","")&IF(G11>0,G11&"; ","")&IF(H11>0,H11&"; ","")&IF(I11>0,I11&"; ","")&IF(J11>0,J11&"; ","")&IF(K11>0,K11&"; ","")&IF(L11>0,L11&"; ","")&IF(M11>0,M11&"; ","")&IF(N11>0,N11&"; ","")&IF(O11>0,C11&"","")
Which works fine if there is a value in cell O, but if not, then a semi-colon appears at the end of the string. It also seems incredibly clunky.
Basically, I'm struggling (being a total n00b) to get the semi-colons in the right place, blank cells to be skipped or not included, and for there to be no semi-colon after the last value.
I have a data table which has a mixture of text, blank cells, and cells with spaces in. I have created a pivot table from the data table. The pivot table is counting the cells with spaces in instead of reading them as blank. I have been able to fix this by putting on a filter in the data table, highlighing all the blank cells only and then clearing them column by column.
The problem is the data table is 50 columns long, so it is quite time consuming to do this manually. The data table gets updated regularly so this is an ongoing problem. Does anyone know of a faster solution to fix this problem? I have attached a snapshot of the problem as an example
I Need To Combine 2 Fields Into 1 Field Without Spaces Or Commas Between Them.
View 4 Replies View RelatedI am working with a spreadsheet and rather new to be VBA. How do I select a range that only has data. I currently have the following macro, but when I run it, it checks every cell in the active worksheet which cause the application to hang. I would like it to automatically select only cells that have data in them ignoring all empty cells. I need this to be an automatically process running without the user selecting a range of data.
Here is my code ..
I have attached what my problem is. Have a look, and let me know what you think...have spent hours trying INDEX, MATCH, IF, ISTEXT...
JamesExcel problem.pdfExcel problem.pdf
I'm compiling several old worksheets into a single database for a research study. The worksheets contain patient data. Some of the worksheets have the patient's last name, first name, and middle initial entered all in one cell like this: Smith,John R. Compounding the problem is the fact that sometimes the name is entered with a space between the comma and the first name, sometimes not.
I have formulas to break the name out into three separate columns "lName, "fName", "midInit". However, if the name in the original cell has a space between the coma and the first name, then the “fname” column will contain a blank space in front of the name. This is problem because patients names can appear in the database more than once. Some patients are in the database several times.
If patient “John R. Smith”, for example, is entered in the database as”
“Smith” “John” “R “
and also as
“Smith” “<space>John” “R”
then the database won’t recognize them as the same name when I search for John Smith’s data. Right?
If so, then I need a way to eliminate the empty spaces in front of the first names. Like I said, some have empty spaces and some don’t. I could do this by hand, but there are over 1000 entries in these worksheets.
I need to take data from a cell that has a space "cherry banana", and make it into two cells "cherry" and "banana". I want to duplicate my line on which the data resides, if possible.
What I have is a sheet like this:
I want to copy A1 and C1 (there is data in A2), but when I copy it somewhere else, I want it to maintain the column space with NO data. Can I do this?
View 1 Replies View RelatedI am having trouble trying to figure out how to insert blank cells:
I need to insert cells, in columns B through H, equal to the number of returned IDs in column B.
Please take a look at the spreadsheet I attached.
Here is the code I am using to separate the IDs in column B so that I get one ID in each A cell. When I do this it separates them great, but then I have to manually go in and insert cells down so that the rest of the rows match up with the right ID.
Sub Macro1()
Dim fromCol As String
Dim toCol As String
Dim fromRow As String
Dim toRow As String
[Code] .....
sample of separate.xlsm
how to remove multiple leading and trailing spaces while leave spaces in the middle of the string in place? I have tried text to columns but this does not remove the multiple spaces.
View 9 Replies View Related