如何插入双引号或单引号

Question

我有一长串名称，需要用引号引起来（可以是双引号或单引号），大约有 8,000 个。我将它们保存在 Excel 中，没有任何引号，我可以复制所有名称并粘贴它们，没有问题，但仍然没有引号。我一直在寻找一个 Excel 公式来为每行中的名称添加引号，但我没有运气。我还尝试了一些巧妙的查找和替换技术，但也没有奏效。我正在寻找的格式是这样的：

“Allen”或“Allen”

其中任何一个都可以。我需要这个，以便我可以将信息存储到数据库中。非常感谢任何帮助。谢谢

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

要获取永久带引号的字符串，您需要复制公式值并粘贴特殊值。

Answer 2

更简单的步骤：

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

Answer 3

假设您的数据位于 A 列中，请向 B 列添加一个公式

="'" & A1 & "'" 

，然后向下复制该公式。如果您现在保存到 CSV，您应该会获得带引号的值。如果您需要将其保留为 Excel 格式，请复制 B 列，然后粘贴值以删除公式。

Answer 4

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

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

对于数字......比如邮政编码......这将是这个“#”
对于字符串文本，它将是“@”。

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

Answer 5

或者选择范围并设置单元格格式>风俗 \”@\”

Answer 6

我想总结一下方法，有超过 4 种方法：

让 A1 成为要插入引号的单元格。

1.
对于双引号：

=CHAR(34)&A1&CHAR(34)

对于单引号：

=CHAR(39)&A1&CHAR(39)

---

2 .
=CONCATENATE("'",A1,"'")

---

3 .
="'"&A1&"'"

---

4 .应用自定义格式。

假设您有一个号码，并且必须在该号码上插入引号：

右键单击​​单元格：

然后单击设置单元格格式

您将得到此屏幕：

在类型框中写入

'#'

单击底部的“确定”屏幕。

您将得到结果：

---

如果您在单元格中写入了文本，则：

单击屏幕底部的“确定”。

Answer 7

如果将 Excel 文件另存为 CSV 格式文件，您可能会发现结果很方便插入数据库，尽管我不确定所有字段都会被引用。