如何插入双引号或单引号
我有很长的名单，我需要引用（可以是双引号或单引号），我有大约8000个。 我有他们在Excel中没有任何引号，我可以复制所有的名称和粘贴他们没有问题，但仍然没有引号。 我已经看了，并寻找一个Excel公式来添加引号到每一行的名字，但我没有运气。 我也尝试了一些聪明的发现和replace技术，但没有工作。 我正在寻找的格式是这样的：
“艾伦”或“艾伦”
任何这些将工作。 我需要这个，所以我可以将信息存储到数据库中。 任何帮助是极大的赞赏。 谢谢
PS：
我发现在线的其他人需要做同样的事情，我需要做的，这个解决scheme已经为他们工作，但我不知道它是怎么做的：
你可以通过使用范围variables（例如myCell）来修复它，然后使用它来迭代范围对象的“select”集合，就像这样
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 另一个解决scheme也为别人工作是：
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
从未引用的值创build新的引用值
- 列A包含名称。
- 把下面的公式写入列B
= """" & A1 & """" - 复制列B和select性粘贴 – >值
使用自定义function
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, "'")
要获得永久引用的string，您将不得不复制公式值和粘贴特殊值。
假设你的数据在列A中，向列B添加一个公式
="'" & A1 & "'"
并复制公式。 如果你现在保存为CSV，你应该得到引用的值。 如果您需要保持Excel格式，请复制B列，然后粘贴值以摆脱公式。
为什么不只是为需要引用的单元格使用自定义格式呢？
如果您将自定义格式设置为单元格列，则所有值都将采用该格式。
对于数字….就像一个邮政编码….这将是这个'＃'对于string文本，这将是这个'@'
将文件保存为csv格式，并根据需要将所有引号包含在单元格数据中。
更简单的步骤：
- 突出显示要添加引号的单元格。
- 转到格式 – >单元格 – >自定义
- 将以下内容复制/粘贴到“types”字段中： \“@ \”或\“@ \”
- 完成！
或者select范围和格式单元格>自定义\“@ \”
如果将Excel文件保存为CSV格式文件，则可能会发现将结果插入到数据库中很方便，但我不确定所有字段都会被引用。