Comment insérer des guillemets doubles ou simples

J'ai une longue liste de noms dont j'ai besoin pour avoir des guillemets (il peut s'agir de guillemets doubles ou simples) et j'en ai environ 8 000. Je les ai dans Excel sans guillemets et je peux copier tous les noms et les coller sans problème mais il n'y a toujours pas de guillemets. J'ai regardé et cherché une formule Excel pour ajouter des guillemets au nom dans chaque ligne, mais je n'ai pas eu de chance. J'ai également essayé quelques techniques intelligentes de recherche et de remplacement, mais pas travaillé non plus. Le format que je recherche est ce:

"Allen" ou 'Allen'

N'importe lequel d'entre eux fonctionnerait. J'ai besoin de cette sorte que je peux stocker les infos dans une base de données. Toute aide est grandement appréciée. Merci

PS:

J'ai trouvé d'autres personnes en ligne ayant besoin de la même chose que je dois faire et cette solution a fonctionné pour elles mais je ne sais pas quoi en faire:

Vous pouvez le réparer en utilisant une plage variable (myCell par exemple) puis utilisez-le pour itérer la 'sélection' collection des objets range, comme ceci

Sub AddQuote()
Dim myCell As Range
    For Each myCell In Selection
        If myCell.Value <> "" Then
            myCell.Value = Chr(34) & myCell.Value
        End If
    Next myCell
End Sub

Une autre solution qui a également fonctionné pour les autres était:

Sub OneUglyExport()

Dim FileToSave, c As Range, OneBigOleString As String

FileToSave = Application.GetSaveAsFilename

Open FileToSave For Output As #1

For Each c In Selection

If Len(c.Text) <> 0 Then _

    OneBigOleString = OneBigOleString & ", " & Chr(34) & Trim(c.Text) & Chr(34)

Next

Print #1, Mid(OneBigOleString, 3, Len(OneBigOleString))

Close #1

End Sub
24
demandé sur Community 2010-06-30 05:49:31

6 réponses

Pour créer de nouvelles valeurs entre guillemets à partir de valeurs non cotées

  • La Colonne A contient les noms.
  • mettre la formule suivante dans la colonne B = """" & A1 & """"
  • copiez la colonne B et collez les valeurs spéciales - >

Utilisation d'une Fonction Personnalisée

Public Function Enquote(cell As Range, Optional quoteCharacter As String = """") As Variant
    Enquote = quoteCharacter & cell.value & quoteCharacter
End Function

=OfficePersonal.xls!Enquote(A1)

=OfficePersonal.xls!Enquote(A1, "'")

Pour obtenir des chaînes entre guillemets permanents, vous devrez copier des valeurs de formule et coller des valeurs spéciales.

38
répondu AMissico 2010-06-30 02:33:16

En supposant que vos données sont dans la colonne A, ajoutez une formule à la colonne B

="'" & A1 & "'" 

Et copiez la formule vers le bas. Si vous enregistrez maintenant au format CSV, vous devriez obtenir les valeurs entre guillemets. Si vous devez le conserver au format Excel, copiez la colonne B puis collez la valeur pour vous débarrasser de la formule.

16
répondu dendarii 2010-06-30 15:48:49

Étapes plus faciles:

  1. Mettez en surbrillance les cellules que vous souhaitez ajouter les guillemets.
  2. Aller à Format - > Cellules - > personnalisé
  3. , Copiez/Collez le texte suivant dans le champ Type: \"@\" ou \'@\'
  4. fait!
13
répondu noobsee 2016-12-28 06:48:51

Pourquoi ne pas simplement utiliser un format personnalisé pour la cellule que vous devez citer?

Si vous définissez un format personnalisé pour la colonne de cellule, toutes les valeurs prendront ce format.

Pour les nombres....comme un code postal....c'est de '#' Pour le texte de chaîne, ce serait ceci ' @ '

Vous enregistrez le fichier au format csv, et il aura toutes les guillemets enroulés autour des données de la cellule au besoin.

6
répondu Kevin Mansel 2012-09-18 16:28:59

Ou sélectionnez plage et Format des cellules > personnalisé \ "@\ "

6
répondu spriteup 2016-03-27 13:09:55

Si vous enregistrez le fichier Excel au format CSV, vous constaterez peut-être que le résultat est pratique à insérer dans une base de données, bien que je ne sois pas sûr que tous les champs soient cités.

0
répondu Slartibartfast 2010-06-30 01:57:07