2017-05-23 22 views
0

次のコードでは「機能が定義されていません」というエラーが表示されます。誰もこれを見て、私に解決策を与えることができます。事前に感謝します!ここで各機能ごとにvba char(10)を入力してください。

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 

私は、単一のセル内の各ラインに各非空白のセルを連結し、テキストを折り返すしたいです。

答えて

2

ラインX=X & CHAR(10) & Cell.ValueX=X & CHR(10) & Cell.Value

+0

はどうもありがとうございますする必要があります!それは働いた、私は基本的に逃した... :) – Manish

関連する問題