| |
こんにちは。かみちゃん です。
>セル内に３つから５つぐらいのデータが
>Altキー+Enterキーで改行されて保存されてます。
>
>中には１個目データあり ２個目なし ３個目データありのように
>一定ではないのです。
>見た目には３行または５行と言う風にデータが並んでいます。
>
>これを、分割して１セル１個データにしたいのですが・・・
以下のような感じでできると思います。
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
なお、セル内の改行コードについては、以下も参考にされてみてはいかがでしょうか？
ｈｔtp://www.officetanaka.net/excel/vba/tips/tips89.htm
（先頭から二文字は半角にしてください。）
|
|
かみちゃん
- 07/1/20(土) 23:19 -
