У меня длинный список имен, в которых мне нужно иметь кавычки (это могут быть двойные или одинарные кавычки), и у меня их около 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
