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

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'