web-dev-qa-db-de.com

So fügen Sie doppelte oder einfache Anführungszeichen ein

Ich habe eine lange Liste von Namen, um die ich Anführungszeichen haben muss (es können doppelte oder einfache Anführungszeichen sein), und ich habe ungefähr 8.000 davon. Ich habe sie in Excel ohne Anführungszeichen und ich kann alle Namen kopieren und sie ohne Probleme einfügen, aber es gibt immer noch keine Anführungszeichen. Ich habe nach einer Excel-Formel gesucht und nach Anführungszeichen für den Namen in jeder Zeile gesucht, aber ich hatte kein Glück. Ich habe auch einige clevere Such- und Ersetzungsverfahren ausprobiert, aber auch keine. Das Format, nach dem ich suche, ist folgendes:

"Allen" oder "Allen"

Jeder von ihnen würde funktionieren. Ich brauche das, damit ich die Informationen in einer Datenbank speichern kann. Jede Hilfe wird sehr geschätzt. Vielen Dank

PS:

Ich habe andere Leute online gefunden, die das Gleiche brauchen, was ich getan habe, und diese Lösung hat für sie funktioniert, aber ich weiß nicht, was damit zu tun ist:

Sie können es beheben, indem Sie einen Bereich verwenden Variable (z. B. myCell) und dann Verwenden Sie das, um die 'Auswahl' zu durchlaufen Sammlung von Range-Objekten, wie so

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

Eine andere Lösung, die auch für andere funktionierte, war:

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

So erstellen Sie neue Werte in Anführungszeichen aus Werten ohne Anführungszeichen

  • Spalte A enthält die Namen.
  • Fügen Sie die folgende Formel in Spalte B = """" & A1 & """" ein
  • Kopieren Sie Spalte B und fügen Sie Special -> Values ​​ein

Verwenden einer benutzerdefinierten Funktion

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, "'")

Um permanente Zeichenfolgen in Anführungszeichen zu erhalten, müssen Sie Formelwerte kopieren und Spezialwerte einfügen.

39
AMissico

Wenn sich Ihre Daten in Spalte A befinden, fügen Sie in Spalte B eine Formel hinzu 

="'" & A1 & "'" 

und kopiere die Formel nach unten. Wenn Sie jetzt in CSV speichern, sollten Sie die angegebenen Werte erhalten. Wenn Sie es im Excel-Format beibehalten müssen, kopieren Sie die Spalte B und fügen Sie den Wert ein, um die Formel zu löschen.

17
dendarii

Einfachere Schritte:

  1. Markieren Sie die Zellen, in die Sie die Anführungszeichen einfügen möchten.
  2. Gehe zu Format–> Zellen–> Benutzerdefiniert
  3. Kopieren Sie das folgende Feld in das Feld "Typ":\"@ \" oder\'@ \'
  4. Erledigt!
15
noobsee

Warum verwenden Sie nicht einfach ein benutzerdefiniertes Format für die Zelle, die Sie zitieren müssen?

Wenn Sie ein benutzerdefiniertes Format für die Zellenspalte festlegen, übernehmen alle Werte dieses Format.

Bei Zahlen ... wie bei einer Postleitzahl ... wäre es dieses '#'.

Sie speichern die Datei im CSV-Format, und alle Zitate werden nach Bedarf in die Zelldaten eingefügt.

7
Kevin Mansel

Oder Wählen Sie Bereich und Formatieren Zellen> Benutzerdefiniert\"@ \"

6
spriteup

Wenn Sie die Excel-Datei als Datei im CSV-Format speichern, wird das Einfügen in eine Datenbank möglicherweise als praktisch erachtet.

0
Slartibartfast