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
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.
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.
Étapes plus faciles:
- Mettez en surbrillance les cellules que vous souhaitez ajouter les guillemets.
- Aller à Format - > Cellules - > personnalisé
- , Copiez/Collez le texte suivant dans le champ Type: \"@\" ou \'@\'
- fait!
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.
Ou sélectionnez plage et Format des cellules > personnalisé \ "@\ "
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.