Inserting Quotation Marks in all Cells

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi!

I have a co-worker who needs to insert quotation marks in the entire
worksheet. It contains both numbers and text. The quotation marks need to
be inserted around each individual cells data.

Can someone help?
 
Enter this small macro:

Sub quoteit()
Dim r As Range
For Each r In Selection
If IsEmpty(r.Value) Then
Else
r.Value = Chr(34) & r.Value & Chr(34)
End If
Next
End Sub

Select all or some portion of the worksheet and run the macro. It will put
quote marks before and after the contents of all selected non-empty cells
 
Hey Thanks!

Now, can you make it insert quotation marks in empty cells as well as cells
containing data?
 
Yes. We will just get rid of the IF:

Sub quoteit()
Dim r As Range
For Each r In Selection
r.Value = Chr(34) & r.Value & Chr(34)
Next
End Sub
 
Okay then! Thanks sooo much!

Gary''s Student said:
Yes. We will just get rid of the IF:

Sub quoteit()
Dim r As Range
For Each r In Selection
r.Value = Chr(34) & r.Value & Chr(34)
Next
End Sub
Click to expand...
 
Back
Top