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

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

"Allen" или 'Allen'

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

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
26
задан Community 9 July 2018 в 18:41
поделиться

3 ответа

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

  • Столбец 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, "'")

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

39
ответ дан 28 November 2019 в 06:10
поделиться

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

0
ответ дан 28 November 2019 в 06:10
поделиться

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

="'" & A1 & "'" 

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

17
ответ дан 28 November 2019 в 06:10
поделиться
Другие вопросы по тегам:

Похожие вопросы: