excel vba char（10）中的每个函数

我收到错误“函数未定义”以下代码。 任何人都可以看看这个，给我一个解决scheme。 我提前感谢！

Dim X As String,cell as Range For Each Cell in Range("A1:A4") 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 & CHAR(10) & Cell.Value应该是X=X & CHR(10) & Cell.Value