excel vba char（10）具有特殊的string值

我有一个范围与数据，我与线function连接，我想输出如下

范围（“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

尝试这个

 X = X & "-" & cell.Value & Chr(10) 

在全：

 Sub ab_notsonull() Dim X As String, cell As Range For Each cell In Range("A1:A3") If (Len(cell.Value) > 0) Then X = X & ("-" & cell.Value & Chr(10)) End If Next Range("B2").Value = Left$(X, Len(X) - 1) Range("B2").WrapText = True Range("B2").Columns.AutoFit End Sub