web-dev-qa-db-fra.com

Comment insérer des devis simples ou doubles

J'ai une longue liste de noms pour lesquels j'ai besoin de guillemets (il peut s'agir de guillemets simples 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’ya toujours pas de guillemets. J'ai cherché et cherché une formule Excel pour ajouter des guillemets au nom de chaque ligne, mais je n'ai pas eu de chance. J'ai également essayé quelques techniques intelligentes de recherche et de remplacement, mais aucune n'a fonctionné non plus. Le format que je recherche est le suivant:

"Allen" ou "Allen"

N'importe lequel d'entre eux fonctionnerait. J'ai besoin de cela pour pouvoir stocker les informations dans une base de données. Toute aide est grandement appréciée. Merci

PS:

J'ai trouvé d'autres personnes en ligne qui avaient besoin de la même chose que moi 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) et ensuite utilisez cela pour itérer la 'sélection' collection d'objets de plage, comme si

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
excelcsvexcel-vbaquotesvba
26
three3

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

="'" & A1 & "'"

et copiez la formule. Si vous enregistrez maintenant au format CSV, vous devriez obtenir les valeurs citées. Si vous devez le conserver au format Excel, copiez la colonne B puis collez la valeur pour supprimer la formule.

17
dendarii

Étapes plus faciles:

  1. Mettez en surbrillance les cellules auxquelles vous souhaitez ajouter les guillemets.
  2. Allez dans Format–> Cellules–> Personnalisé
  3. Copiez/collez le texte suivant dans le champ Type:\"@ \" ou\'@ \'
  4. Terminé!
15
noobsee

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 .... ce serait ce "#" Pour le texte en chaîne, ce serait ce "@"

Vous enregistrez le fichier au format csv. Tous les guillemets seront enroulés autour des données de la cellule selon les besoins.

7
Kevin Mansel

Ou Sélectionnez une plage et des cellules de format> Personnalisé\"@ \"

6
spriteup

Si vous enregistrez le fichier Excel en tant que fichier 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
Slartibartfast