每个函数都有excel vba char（10）

Question

我收到错误＆＃34;功能未定义＆＃34;用于以下代码。谁能看到这个并给我一个解决方案。我提前谢谢了！

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