如何插入双引号或单引号
如何插入双引号或单引号
提问于 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回答 6
Stack Overflow用户
回答已采纳
发布于 2010-06-30 10:21:25
从未引用的值创建新的引用的值
- 列A包含名称。
- 将以下公式放入B列
= """" & A1 & """" - Copy列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, "'")
要获得永久带引号的字符串，必须复制公式值并粘贴特殊值。
Stack Overflow用户
发布于 2010-06-30 23:48:49
假设您的数据在A列中，向B列添加一个公式
="'" & A1 & "'" 然后把公式复制下来。如果您现在保存为CSV，您应该会得到引用的值。如果您需要将其保存为Excel格式，请复制B列，然后粘贴值以删除公式。
Stack Overflow用户
发布于 2016-12-28 14:48:52
更简单的步骤：
- 突出显示要添加引号的单元格。
- 转到Format–>Cells–>Custom
- Copy/Paste将以下内容放入类型字段：\'@\'
- Done!
\“@\”
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/3145980
复制相关文章
相似问题