我有一个很长的名字列表,我需要用引号括起来(可以是双引号也可以是单引号),大约有8000个。我在Excel中有它们,没有任何引号,我可以复制所有的名称并粘贴它们,没有问题,但仍然没有引号。我一直在寻找Excel公式,以便在每一行的名称中添加引号,但我没有运气。我还尝试了一些聪明的查找和替换技术,但也没有成功。我正在寻找的格式是:
"Allen“或”Allen“
这些都能行得通。我需要这个,这样我才能将信息存储到数据库中。任何帮助都是非常感谢的。谢谢
PS:
我在网上发现其他人需要做我需要做的相同的事情,这个解决方案对他们有效,但我不知道如何处理它:
您可以通过使用范围变量(例如myCell)来修复它,然后使用它来迭代range对象的‘
’集合,如下所示
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
https://stackoverflow.com/questions/3145980
复制相似问题