У меня есть длинный список имен, что у меня должны быть кавычки вокруг (это могут быть двойные или одинарные кавычки), и у меня есть приблизительно 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
= "" "" & A1 & "" ""
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, "'")
Чтобы получить постоянные строки в кавычках, вам нужно будет скопировать значения формулы и вставить специальные значения.
Если вы сохраните файл Excel как файл формата CSV, вы можете обнаружить, что результат удобен для вставки в базу данных, хотя я не уверен, что все поля будут быть цитируемым.
Предполагая, что ваши данные находятся в столбце A, добавьте формулу в столбец B
="'" & A1 & "'"
и скопируйте ее вниз. Если вы теперь сохраните в CSV, вы должны получить значения в кавычках. Если вам нужно сохранить его в формате Excel, скопируйте столбец B, затем вставьте значение, чтобы избавиться от формулы.