Как вставить двойной или одиночный котировки

У меня длинный список имен, в которых мне нужно иметь кавычки (это могут быть двойные или одинарные кавычки), и у меня их около 8 000. Я имею их в Excel без кавычек, и я могу скопировать все имена и не вставлять их без проблем, но кавычек пока нет. Я посмотрел и искал формулу Excel, чтобы добавлять кавычки к имени в каждой строке, но мне не повезло. Я также пробовал некоторые умные методы поиска и замены, но не работал. Формат, который я ищу, следующий:

"Аллен" или "Аллен"

Любой из них будет работать. Мне нужно это, чтобы я мог хранить информацию в базе данных. Любая помощь приветствуется. Благодаря

PS:

Я нашел, что другие люди в сети нуждаются в том же, что мне нужно, и это решение сработало для них, но я не знаю, что с ним делать:

Вы можете исправить это, используя диапазон переменная (например, myCell), а затем используйте это, чтобы итератировать "выбор", коллекция объектов диапазона, например

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

Другим решением, которое также работало для других, было следующее:

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

Ответы

Ответ 1

Создание новых значений кавычек из неучтенных значений

  • В столбце A указаны имена.
  • Поместите следующую формулу в колонку B = """" & A1 & """"
  • Копировать столбцы B и вставить специальные → Значения

Использование пользовательской функции

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

Чтобы получить строки с постоянными кавычками, вам нужно будет скопировать значения формул и вставить специальные значения.

Ответ 2

Предполагая, что ваши данные находятся в столбце A, добавьте формулу в столбец B

="'" & A1 & "'"

и скопируйте формулу вниз. Если вы теперь сохраняете CSV, вы должны получить указанные значения. Если вам нужно сохранить его в формате Excel, скопируйте столбец B, а затем вставьте значение, чтобы избавиться от формулы.

Ответ 3

Почему бы просто не использовать пользовательский формат для ячейки, которую нужно процитировать?

Если вы установите пользовательский формат для столбца ячейки, все значения будут взяты в этом формате.

Для чисел.... как почтовый индекс.... это было бы это '#' Для текстового текста это будет "@"

Вы сохраняете файл как формат csv, и при необходимости будут иметь все кавычки, обернутые по данным ячейки.

Ответ 4

Простые шаги:

  • Выделите ячейки, которые вы хотите добавить в кавычки.
  • Перейдите в Формат- > Ячейки- > Пользовательские
  • Скопируйте/Вставьте следующее в поле "Тип": \ "@\" или \'@\'
  • Готово!

Ответ 5

Или Выберите диапазон и ячейки форматa > Пользовательский \ "@\"

Ответ 6

Если вы сохраните файл Excel в формате CSV, вы можете обнаружить, что результат удобно вставлять в базу данных, хотя я не уверен, что все поля будут указаны.