vba - 如何将单引号和逗号添加到列中的所有值？

Question

我有一个专栏host具有以下值:

server1.abc.com
server2.abc.com
server3

现在，我希望这些值中的每一个都是单引号并用逗号分隔。输出应如下所示:

'server1.abc.com','server2.abc.com','server3'

请让我知道如何使用 Excel 来实现。

到目前为止，我可以使用 , 分隔值使用以下代码:

Public Function MergeME(r As Range) As String
  MergeME = Join(Application.Transpose(r.Value), ",")
End Function

如何在每个单元格中的值周围添加双引号？

Answer 1

你原来的UDF很接近。您只需加入','而不是 ,然后放置 '在输出字符串的开头和结尾

Public Function MergeME(r As Range) As String
  MergeME = "'" & Join(Application.Transpose(r.Value), "','") & "'"
End Function

根据需要输出字符串:

'server1.abc.com','server2.abc.com','server3'