各機能ごとにvba char（10）を入力してください。

Question

次のコードでは「機能が定義されていません」というエラーが表示されます。誰もこれを見て、私に解決策を与えることができます。事前に感謝します！ここで

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