How to quote the texts in a column?

E

ecuser

No, that's my fault. I should've stated it clearly.
I have a sheet filled with data already. There are thousands of rows
and in some columns I wanted them quoted.
Original:
A B C
1 HE SHE THEY
2 IS IS ARE
3
4

wanted:
A B C
1 'HE' 'SHE' THEY
2 'IS' 'IS' ARE

how to do that without manully correct it one by one (too many)
thanks
 
B

Bob Phillips

VBA?

Select all cells

Dim cell As Range
For Each cell In Selection
If VarType(cell.Value) = vbString Then
cell.Value = "''" & cell.Value & "'"
End If
Next cell
 
D

dcronje

try this formula

="'"&SUBSTITUTE(A1," ","' '")&"'"


Let me know if this works as I have not tested it
 
Top