Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


35935 / 76738 ←次へ | 前へ→

【45991】Re:セル内のデータ分割
発言  かみちゃん  - 07/1/20(土) 23:19 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>セル内に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
(先頭から二文字は半角にしてください。)

0 hits

【45989】セル内のデータ分割 おすぎ♪ 07/1/20(土) 23:04 質問
【45991】Re:セル内のデータ分割 かみちゃん 07/1/20(土) 23:19 発言
【45994】Re:セル内のデータ分割 おすぎ♪ 07/1/20(土) 23:35 お礼
【45995】Re:セル内のデータ分割 かみちゃん 07/1/20(土) 23:46 発言
【45996】Re:セル内のデータ分割 おすぎ♪ 07/1/21(日) 0:14 お礼
【45992】Re:セル内のデータ分割 へっぽこ 07/1/20(土) 23:24 発言
【45993】Re:セル内のデータ分割 Kein 07/1/20(土) 23:33 回答
【46264】Re:セル内のデータ分割 おすぎ♪ 07/1/29(月) 2:52 お礼

35935 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free