Skip to content

Instantly share code, notes, and snippets.

@jaredatch

jaredatch/gist:1609175

Created January 13, 2012 22:43
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jaredatch/1609175 to your computer and use it in GitHub Desktop.
Save jaredatch/1609175 to your computer and use it in GitHub Desktop.
Download ZIP
Excel macro to add quotes to around cells
Raw
gistfile1.vb
Sub makequotes()
mc = "a"
For i = 2 To Cells(Rows.Count, mc).End(xlUp).Row
If Cells(i, mc) <> "" And Left(Cells(i, mc), 1) <> """" Then
Cells(i, mc).Value = """" & Cells(i, mc) & """"
End If
Next i
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment