我有一长串名字需要加引号（可以是双引号或单引号），我有大约8，000个。我有他们在Excel没有任何引号，我可以复制所有的名称和粘贴他们没有问题，但仍然没有引号。我已经寻找和寻找一个Excel公式添加引号的名称在每一行，但我没有运气。我也尝试了一些聪明的查找和替换技术，但也没有工作。我正在寻找的格式是这样的：
“艾伦”还是“艾伦”
任何一个都可以。我需要这个，这样我就可以将信息存储到数据库中。任何帮助都非常感谢。谢谢
附言：
我发现其他人在网上需要做同样的事情，我需要做，这个解决方案已经为他们工作，但我不知道该怎么办：
您可以通过使用range变量（例如myCell）来修复它，然后使用它来迭代range对象的“selection”集合，如下所示
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
7条答案
按热度按时间oyt4ldly1#
从无引号的值创建新的带引号的值
= """" & A1 & """"使用自定义函数
=OfficePersonal.xls!Enquote(A1)=OfficePersonal.xls!Enquote(A1, "'")要获得永久引用的字符串，您必须复制公式值并粘贴特殊值。
oipij1gg2#
假设您的数据位于A列，请向B列添加公式
并复制公式。如果现在保存为CSV，则应获得引用的值。如果需要将其保留为Excel格式，则复制B列，然后粘贴值以删除公式。
wixjitnu3#
更简单的步骤：
1.突出显示要添加引号的单元格。
1.转到格式-〉单元格-〉自定义
1.将以下内容复制/粘贴到"类型"字段中：* "@"或"@"*
1.成交!
zujrkrfu4#
为什么不对需要引用的单元格使用自定义格式呢？
如果为单元格列设置自定义格式，则所有值都将采用该格式。
对于数字....如邮政编码....它将是这个'#'对于字符串文本，它将是这个'@'
您将文件保存为csv格式，它将根据需要在单元格数据周围加上所有引号。
kgqe7b3p5#
或选择区域并设置单元格格式〉自定义"@\”
hsgswve46#
如果您将Excel文件保存为CSV格式文件，您可能会发现将结果插入到数据库中很方便，尽管我不确定所有字段是否都会被引用。
erhoui1w7#
我想总结一下方法，有4种以上的方法：
将
A1作为要插入引号的单元格。1 .对于双引号：
=CHAR(34)&A1&CHAR(34)对于单引号：
=CHAR(39)&A1&CHAR(39)2 . x一米三英寸
3 .一米四一米
4 .应用自定义格式。
假设您有一个数字，并且必须在该数字上插入引号：
右键单击单元格：
然后单击
Format Cells您将看到此屏幕：
在“类型”框中写入
'#'单击屏幕底部的
'OK'。您将得到以下结果：
如果在单元格中写入了文本，则：
单击屏幕底部的
'OK'。