View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Gord Dibben Gord Dibben is offline
external usenet poster
 
Posts: 22,906
Default how to put quotation mark in each cell of the column

Could be I missed the point of OP's question<g


Gord

On Wed, 10 Oct 2007 17:30:02 -0700, Mike wrote:

VBA Can do it.
This code will work on Column A Cells A1 thru the last Used cell in Column A
I'm guessing you want to put "" around Values you already have in the cells.

Before running code
Cell A1 value = Test
after you run the code
Cell A1 = "Test"

Sub addDoubleQuotation()
lastcell = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To lastcell
Range("A" & i).Value = """" & Range("A" & i).Value & """"
Next
End Sub

"crazyfisher" wrote:

Dear all,

just want to know is it possible to autometically put a double quotation
mark in the cell content within the same column? because there are 84 cells,
i don't want to do it manually...

thanks very much !