|
こんにちは。かみちゃん です。
>セル内に3つから5つぐらいのデータが
>Altキー+Enterキーで改行されて保存されてます。
>
>中には1個目データあり 2個目なし 3個目データありのように
>一定ではないのです。
>見た目には3行または5行と言う風にデータが並んでいます。
>
>これを、分割して1セル1個データにしたいのですが・・・
以下のような感じでできると思います。
A1:A2に元データがあるものとします。
Sub Sample()
Dim c As Range
Dim vntData As Variant
For Each c In Range("A1:A2")
vntData = Split(c.Value, vbLf)
c.Resize(, UBound(vntData, 1) + 1).Value = vntData
Next
End Sub
なお、セル内の改行コードについては、以下も参考にされてみてはいかがでしょうか?
http://www.officetanaka.net/excel/vba/tips/tips89.htm
(先頭から二文字は半角にしてください。)
|
|