如何插入双引号或单引号?

内容来源于 Stack Overflow,并遵循CC BY-SA 3.0许可协议进行翻译与使用

  • 回答 (2)
  • 关注 (0)
  • 查看 (25)

我有一长串的名字,我需要有引号(可以是双引号或单引号),我有大约8000。我在Excel中没有任何引号,我可以复制所有的名字,粘贴它们没有问题,但仍然没有引号。我已经查找并寻找了一个Excel公式来在每行中添加引号,但是我没有运气。我也尝试了一些聪明的发现和替换技术,但也没有发挥作用。我要寻找的格式如下:

“Allen”或“Allen”

任何一个都行。我需要这个这样我就可以把信息存储到数据库里。

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
提问于
用户回答回答于

从未引用的值创建新的引用值

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

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

用户回答回答于

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

="'" & A1 & "'" 

把公式抄下来。如果您现在保存到CSV,您应该得到引用的值。如果需要保持Excel格式,请复制列B,然后粘贴值以消除公式。

扫码关注云+社区

领取腾讯云代金券