Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro that returns a specific number of characters from a text str
Hello,
I need in Helps in developing a macro that will remove double quotes between characters ( i.e. "1234N") in a specific column within the spreadsheet. Using the MID Function does seem to take alot of time. Thus, I would like to come up with a macro that will do faster. Thanks, |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro that returns a specific number of characters from a text str
Have you tried Find & Replace (CTRL-H) ? Highlight your column, then
CTRL-H and in the pop-up enter: Find what: " Replace with: leave blank Then click Replace All. Job done. Hope this helps. Pete On Aug 1, 10:18 pm, Jurassien wrote: Hello, I need in Helps in developing a macro that will remove double quotes between characters ( i.e. "1234N") in a specific column within the spreadsheet. Using the MID Function does seem to take alot of time. Thus, I would like to come up with a macro that will do faster. Thanks, |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro that returns a specific number of characters from a text str
I did a search and replace, looking for double quotes and replacing
with nothing, which worked. If you REALLY need a macro to do it, this one will: Sub RemoveQuotes() Dim rCell As Range Dim CellVal As String Dim NewVal As String Dim K As Byte Application.Calculation = xlCalculationManual For Each rCell In Selection.Cells CellVal = Trim(rCell.Value) rCell.ClearContents For K = 1 To Len(CellVal) If Asc(Mid(CellVal, K, 1)) < 34 Then NewVal = NewVal & Mid(CellVal, K, 1) End If Next K rCell.Value = NewVal NewVal = "" Next rCell Application.Calculation = xlCalculationAutomatic End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Finding cells with a specific number of characters | Excel Discussion (Misc queries) | |||
Text String - Specific Characters | Excel Worksheet Functions | |||
number returns only two decimal places after I change from text | Excel Discussion (Misc queries) | |||
trim a string by specific number of characters | Excel Discussion (Misc queries) | |||
how do I highlite text within a cell (specific characters) | Excel Discussion (Misc queries) |