excel - 如何通过VBA在excel中创建具有特殊格式的字符串列表

Question

我在 excel 中有这样的值的列：

Column_Name
row1
row2
row3

我需要通过 VBA 以这种格式创建一个字符串变量

('row1','row2','row3')

我有这个代码

   Dim Strg As String
   With Range(Range("E2"), Range("E2").End(xlDown))
      Strg = Replace(Application.Trim(Join(Application.Transpose(.Value), " ")), " ", ",")
   End With

但它只给我row1,row2,row3我不知道如何将它放在''之间并在开头和结尾添加括号。你有什么主意吗？

标签： excelvbalist

Answer 1

这是你正在尝试的吗？

Dim Strg As String
With Range(Range("E2"), Range("E2").End(xlDown))
    Strg = Replace(Application.Trim(Join(Application.Transpose(.Value), " ")), " ", "','")
End With

Debug.Print "('" & Strg & "')"