excel vba char（10）具有特殊字符串值

Question

我有一个数据范围，我正在使用行函数连接，我希望输出如下

范围（“A1：A3”）有A，B，C，我希望单个单元格中的输出为

-A
-B
-C

我正在使用以下代码;不知怎的，它没有给我想要的输出。任何人都可以调查并协助吗？

Dim X As String,cell as Range
For Each Cell in Range("A1:A3")
  If(Len(cell.value)>0) Then
  X="-" & X & CHAR(10) & Cell.Value
End If
Next
Range("B1").Value= X

Range("B1").WrapText = True
Range("B1").Columns.AutoFit

Answer 1

试试这个

\n

完整：

GetParameters()