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
|