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栏和特殊粘贴 - ＆gt;值

使用自定义功能

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, "'")

要获取永久引用的字符串，您必须复制公式值和粘贴特殊值。

Answer 2

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

="'" & A1 & "'"

并将公式复制下来。如果您现在保存为CSV，则应获取引用的值。如果您需要将其保留为Excel格式，请复制B列，然后粘贴值以删除公式。

Answer 3

更简单的步骤：

突出显示要添加引号的单元格。
转到格式 - ＆gt; Cells-＆gt;自定义
将以下内容复制/粘贴到“类型”字段中： \＆＃34; @ \＆＃34; 或 \＆＃39; @ \＆＃39;
完成！

Answer 4

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

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

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

您将文件保存为csv格式，并且根据需要将所有引号括在单元格数据周围。

Answer 5

或选择范围和格式单元格＆gt;自定义\＆＃34; @ \＆＃34;

Answer 6

如果将Excel文件保存为CSV格式文件，您可能会发现插入数据库很方便，但我不确定是否会引用所有字段。

如何插入双引号或单引号

6 个答案:

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

使用自定义功能