如何插入双引号或单引号

Question

我有一长串的名单,我需要引用(它可以是双引号或单引号),我有大约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

Answer 1

从不带引号的值创建新的引用值

• A列包含名称.
• 将以下公式放入B列 = """" & A1 & """"
• 复制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, "'")

要获取永久引用的字符串,您必须复制公式值和paste-special-values.

Answer 2

更简单的步骤:

1. 突出显示要添加引号的单元格.
2. 转到格式 - >单元格 - >自定义
3. 将以下内容复制/粘贴到"类型"字段中:\"@ \"或\'@ \'
4. 完成!

Answer 3

假设您的数据在A列中,请将一个公式添加到B列

="'" & A1 & "'" 

然后复制公式.如果您现在保存为CSV,则应获取引用的值.如果需要以Excel格式保存,请复制B列,然后粘贴值以删除公式.

Answer 4

为什么不使用您需要引用的单元格的自定义格式？

如果将自定义格式设置为单元格列,则所有值都将采用该格式.

对于数字....就像一个邮政编码....这将是'#'对于字符串文本,它将是'@'

您将文件保存为csv格式,并根据需要将所有引号包含在单元格数据中.

Answer 5

或选择范围和格式单元格>自定义\"@ \"