Remove Forbidden Character
Feb 4, 2010I'm trying to write a UDF that takes the text in a cell and returns text with a list of forbidden characters removed from it. At the moment I have the following:
View 8 RepliesI'm trying to write a UDF that takes the text in a cell and returns text with a list of forbidden characters removed from it. At the moment I have the following:
View 8 RepliesTo all sifus out there, how can i transfer from these:
NAS517-3-2
-41353913
NAS517-3-5
NAS517-3-4
-42MS27253-2
-43353908
-44357182
To these:
NAS517-3-2
353913
NAS517-3-5
NAS517-3-4
MS27253-2
353908
357182
How to remove the first charcter that contains comma, like this :
,001,003,005 and i want the result is --> 001,003,005.
I have a column and each cell in that column has information that ends with a comma "," I would like to remove that comma.
View 4 Replies View RelatedI am trying to remove the last character from some text with:
Application.SendKeys "{F2}"
Application.SendKeys "{BS}"
Application.SendKeys "{Enter}"
But when I do this, it is giving me the object browser in VBE . . .
I would like to take a value in a cell and remove the second and third characters in that cell.
For example: "V0010" would become "V10."
I've found formulas for removing the beginning and ending characters, but not a way to remove from the middle.
I need a VB script to remove a character.
The character is the SECOND . in the following strings
1.07.66
0.59.53
1.08.99
1.10.1
0.58.6
Basically, 1.07.66 represents 1 min and 7.66 sec, but I cant use the data until excel can recognise it as 1.0766
A vb sript would be nice, but a formula is also acceptable.
I have data in a column and each cell has an extra character at the end of it-
house;
farm%
school bus>
football-
trip to europe"
I once saw someone remove the characters with either a =LEFT( or =RIGHT( formula with a comma after the reference cell and some kind of FIND" " statement.
I have sentences which contains special characters (mentioned below) in a single column. I need to remove all special characters other than space. Could anyone help me on this...
!@#$%^&*()-_=+{}[]|~`?/,:;"
1) In any cell, I would like to remove "Area#xxxxxxxxx" (where x are random numbers).
Example : "INFO Log - [sys] Area#541185471Character#46545"
2) I would like to remove x characters before a word.
Example : 2013-08-28.txt@INFO
I would need to remove 14 characters before the character "@".
I tried to play with the LEN and RIGHT/LEFT formula but so far, I can't get it to work... The idea is to parse some text and remove the part in red (I was thinking about using SUBSTITUTE).
I need to remove the last character in a cell if it is a comma. I can't remove all commas because there are other commas in the text.
View 2 Replies View RelatedI managed to produce the following code. It removes the the last character in a cell if it is a slash But most of the time there are more than one slashes at the end. How can I take care of these?
Code:
For Each cell In Range("G2:G71")
If Right(cell, 1) = "/" Then
cell.Value = Left(cell, Len(cell) - 1)
End If
Next cell
How do I search for and remove the vertical lines in the above example from the column D? These things came when I imported a data file into Excel....
View 9 Replies View RelatedI'm trying to write to text file a HTML page that is in string variable sFullPage.
So far my code is like this:
Sub wrtHTML()
Dim sFName As String ' Path and name of text file
Dim iFNumber As Integer ' File Number
sFName = "c: est.html"
'Get an unused file number
iFNumber = FreeFile
'Create new file or overwrite existing file
Open sFName For Output As #iFNumber
'Write data to file....
How do I remove those first and last two marks (a double quote on each side + square mark from the end)? Do I use somehow wrong data types or wrong printing methods?
i need a formula that will remove the first 2 characters and the last character from the below, so below the result should be R0131644, the number of characters vary from row to row, they are not always 11
EUR01316441
I have data in cell A1 and A2 which looks like below
SECTOR - 11, HIRAN MAGRI, - 313001
MAIN BRANCH, 30-15-171 DABA GARDENS, NEAR SARASWATI PARK,-530020,
In cell A1 the number of hypens (-) are 2
In cell A2 the number of - are 3
What I am looking for is a formula which can remove all additional - except the last one. Therefore the result of the formula should be
SECTOR 11, HIRAN MAGRI, - 313001
MAIN BRANCH, 30 15 171 DABA GARDENS, NEAR SARASWATI PARK,-530020
I am trying to remove the last 6 character from a variable. I worked out how to do it using formula's in XL, but want to move this in to VBA. Currently I have this
Mid(ActiveSheet. Name, 1, Find(" Intrdy", LookIn:=ActiveSheet.Name))
however it does not like the find function. Does it exist? am I using it correctly?
I have the function below from http://www.ozgrid.com/VBA/extract-words-function.htm
and have it working exactly as it's supposed to. Is it possible to adapt this to remove the last character of the text string, specifically the commas? My problem is that the raw data in one cell is like this (including commas) 0.333, 5.8874, 6.85423, 0.025. I separate each text string into separate cells but am left with the commas. I'm not using the "Data Text to Columns" option as I need the results in specific cells so they can then be used in calculations.
Function Get_Word(text_string As String, nth_word) As String
Dim lWordCount As Long
With Application.WorksheetFunction
lWordCount = Len(text_string) - Len(.Substitute(text_string, " ", "")) + 1
If IsNumeric(nth_word) Then
nth_word = nth_word - 1
Get_Word = Mid(Mid(Mid(.Substitute(text_string, " ", "^", nth_word), 1, 256), _
. Find("^", .Substitute(text_string, " ", "^", nth_word)), 256), 2, _
.Find(" ", Mid(Mid(.Substitute(text_string, " ", "^", nth_word), 1, 256), _ ............................
I want to change the character ~ with . in order to be able to make them numeric values to be feeded to other functions. But REPLACE seems not doing the job so I've been checking out other options such as seperating after and before the character ~. Details are below. I've been trying to use this formula to extract values from a delimited database which I open with excel. The formula that has brought me close is =IF(ISNUMBER(E51)=FALSE,LEFT(E51,LEN(E51)- FIND("~",E51)),E51)
14010~000
3210~0000
When I import the database, the figures above have originals as 14010.00000 & 3210.00000 but transfer to excel as above. As far as I have observed 9 character spaces are displayed & the DOT transfers to ~ for some reason. I need the LEFT section of the ~
I need to remove the first character in each row of a column, but only its first occurrence in each row. For instance:
Say, column 2 has following data (lots of rows, by the way):
First Text" - "blabla"
=SomeText2 = "blabla"
SomeText3 = "blabla"
=SomeText4 = "blabla"
-SomeText5 --- "blabla"
........
....
I would like to use the VBA code to remove ONLY the FIRST occurrence of the FIRST character specified (either "=" or "-") in each row in that column, so that I get:
First Text" - "blabla"
SomeText2 = "blabla"
SomeText3 = "blabla"
SomeText4 = "blabla"
SomeText5 --- "blabla"
......
...and so on...
I tried to use this:
Code:
Columns(2).Cells.Replace What:="-", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns(2).Cells.Replace What:="=", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
but it replaces ALL occurrences of "=" and "-" and that is not what I need.
I also tried this code:
Code:
With Range("B:B")
.Value = Replace(.Value, "=", "", 1, 1)
End With
But It doesn't work either.
I have a spreadsheet with a column that containts UNSPSC codes that can be in any of the four following formats:-
10
77/11
78/10/22
44/12/19/04
I basically want ta formula that will find and remove any / leaving me with
7711
781222
44121904
I have a column of text where I need to remove all the characters to the right of the last occurance of a special character.
I think a process like reading from right to left, look for the first occurance of the special character, and return the characters to the left of this position.
If I can determine the position of the last occurance of the special character, I could use the LEFT function.
The SEARCH function is close. It finds the position of the first occurance of text inside text but it reads from left to right. I need to read from right to left.
Another approach is to examine each character one by one from right to left. If the character is not the special character, delete it. When the character is the special character, delete it and stop the process.
There is no consistency in the text. The total lengths vary. The number of times the special character occurs in the text vary. The number of characters to the right or left of the last special character vary.
I much prefer not to have the solution be some VBA because I need to share it with others who are even less capable than I am. We are using Excel 2003.
i am trying to remove the unknown character and extra space from the name. Though i use formula as trim or proper(trim), it is not removing the Unknown character / extra space. I have attached the few name as sample. Formula to remove these Unknown character / extra space, double space, special character from selected cell?
Note : I am using ms office 2013
I have a string of text in cell A2. In cell B2 of my spreadsheet is a formula that calculates a number based on the text string in cell A2.
I want to write a VBA loop that removes a single character from the cell A2 string, then calculate the new value in cell B2. I want this loop to continue until the value in B2 falls below a set value (in this case 60).
My code so far
Sub trim_text()
Dim mytext As String
Dim myanswer As Integer
mytext = Range("A2")
myanswer = Range("B2")
Do While myanswer > 60
mytext = (Right(mytext, Len(mytext) - 1))
Loop
End Sub
This obviously does not work. In my excel table I have a formula in cell B2 to calculate "myanswer" will this work, or does that code have to be placed into the VBA code?
I have got a list of numeric abbreviations, for instance 10739011/21/31/41. What it should really display are the numbers 10739011, 10739021, 10739031 and 10739041 (the first six figures stay the same). All the numbers in my list are 8 figures long. I want to change the list from the list seperated by the backward slash to the complete numbers. I have uploaded an example of the list with backward slash between the numbers. Is there a way that Excel can automatically change these numbers to the full numbers?
Because all the numbers are 8 figures long, I thought the first 6 figures of the 1st number can be copied and those 6 figures pasted before the other two figures after the backslash. Auto Merged Post Until 24 Hrs Passes;sorry, pressed OK too quickly. The problem is that there are sometimes 4 numbers in the cell, sometimes 6 and once three. I would like Excel to complete all the numbers in the cell and then move on to the cell underneath it and so on. Also, I would like each number to have it's own cell.
I have a cell which will contain SER01+SER02+SER03
and what i need it to contain is [SER01]+[SER02]+[SER03]
and shocker is i've got this to work for the first instance but not the other two
code as below... be grateful for your help
Sub measure1()
Dim list As String, pos As Integer, refl As String, refr As String, newlist As String
list = Cells(1472, 16).Value
pos = InStr(list, "+")
refl = Left(list, pos - 1)
refr = Right(list, pos + 1)
newlist = "[" & refl & "]"
Cells(1472, 17) = newlist
End Sub
Need a formula/code that will determine what the corrected part number should be (insert dashes if they are missing) by comparing to other values in the list.
Original A1:A5 = {452, a-bc, 123, 4-52, abc}
Corrected C1:C5 = {4-52, a-bc, 123, 4-52, a-bc}
I can do this using an intermediate working column, but can this be done all in one formula, or via VBA?
My formulaic solution is thus: .....
I have found a very useful UDF for removing non-alpha characters from strings. (See below, Credit for posting to Stanley D Grom - Ozgrid post ´Removing Non-alpha Characters From Text´).
Option Explicit
Private Function RemoveCharacters(InString As String) As String
Dim intLoopCounter As Integer
Dim intStringLength As Integer
Dim intASCIIVal As Integer
intStringLength = Len(InString)
InString = LCase(InString)
For intLoopCounter = 1 To intStringLength
intASCIIVal = Asc(Mid(InString, intLoopCounter, 1))
If intASCIIVal >= 97 And intASCIIVal <= 122 Then
RemoveCharacters = RemoveCharacters + Mid(InString, intLoopCounter, 1)
End If
Next intLoopCounter
End Function
Two requests:
1. Could the UDF be modified such that any part of a string contained within brackets is also removed (e.g. "NLGA High Street (West-Enfield), EN6" becomes "nlgahighstreeten")?
2. Can an argument be added to the format of the UDF, such that numbers (0 to 9) are either included or excluded (e.g. RemoveCharacters(A1,1) where the argument ´1´ would include any numbers (0 to 9), so "NLGA2003 High Street (West-Enfield), EN6" becomes "nlga2003highstreeten6")? ´blank´or ´0´would exclude these numbers, i.e. would return "nlgahighstreeten"
I would like to create an If Then statement in which the condition is based on if a string is a simple text or a formula. Some of my cells contain a formula and some contain simple text...and I would like to cycle through all of them- only do something different to them based on what the cell contains.
View 18 Replies View RelatedI have some cells with some spaces and then text where I want to find the position of the first letter. Do any of you know about any function I can use?
The example below contain 5 spaces and then my name. It should give me the answer 6.
" Magne"