如何插入双引号或单引号
如何插入双引号或单引号
提问于 2010-06-30 09:49:31
我有一个很长的名字列表，我需要用引号括起来(可以是双引号也可以是单引号)，大约有8000个。我在Excel中有它们，没有任何引号，我可以复制所有的名称并粘贴它们，没有问题，但仍然没有引号。我一直在寻找Excel公式，以便在每一行的名称中添加引号，但我没有运气。我还尝试了一些聪明的查找和替换技术，但也没有成功。我正在寻找的格式是：
"Allen“或”Allen“
这些都能行得通。我需要这个，这样我才能将信息存储到数据库中。任何帮助都是非常感谢的。谢谢
PS:
我在网上发现其他人需要做我需要做的相同的事情，这个解决方案对他们有效，但我不知道如何处理它：
您可以通过使用范围变量(例如myCell)来修复它，然后使用它来迭代range对象的‘
’集合，如下所示
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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/3145980
复制相关文章
相似问题