macro! macro! macro!

inserisci una nuova macro, copia il codice...

codice:
Sub InserisciVirgole()
    
    For Each cella In Selection.Cells
        If cella.Value <> "" Then
            cella.Value = """" & cella.Value & """"
        End If
    Next

End Sub
seleziona le celle da modificare e lancia la macro

spero sia utile, provala e fai sapere
ciao