[[20160826153542]]　『改行のあるセルの分割につきまして』（TAKAちゃん）　ページの最後に飛ぶ

『改行のあるセルの分割につきまして』（TAKAちゃん）

お世話になります。

ひとつのセルに下記の文字列が入っております。

//////////////////////////////////////////////////////////////////
発送日程予約商品（発送まで８〜１５日）

レビュー記入レビュー書いてプレゼントGET プレゼントはいらない

カラーブラックレッドライトグレーダークブルー
//////////////////////////////////////////////////////////////////

これを分割して３つのセルにわけたいです。

（セル１）
//////////////////////////////////////////////////////////////////
発送日程予約商品（発送まで２日）
//////////////////////////////////////////////////////////////////
（セル２）
//////////////////////////////////////////////////////////////////
レビュー記入レビュー書くレビュー書かない
//////////////////////////////////////////////////////////////////
（セル３）
//////////////////////////////////////////////////////////////////
カラーブラックレッドライトグレーダークブルー
//////////////////////////////////////////////////////////////////

改行がはいっているため、苦戦しています。

区切り位置も改行があるためにうまくいきません。

エクセル上級者の方ぜひご教授いただけましたら幸いです。
お手数おかけしますがよろしくお願いいたします。

＜使用 Excel：Excel2016mac、使用 OS：unknown ＞

 >////////////////////////////////////////////////////////////////// 
 は関係ないものとして。

 区切り位置ウィザードの1/3で「カンマやタブなどの…」を選択、2/3で区切り文字に「その他」を選択、隣のテキストボックスで
 Ctrlキーを押しながらJキーを押してみてくれ。

 セル内改行部分で区切られる。
（ねむねむ） 2016/08/26(金) 15:59

つまりは、改行が2つ連続した部分を1つにまとめてから、改行コードで分割するということでしょうか？
出力フォーマットが具体的に判らなかったので、B～D列にバラすマクロ例なぞ。元データは1セルだけでなく、A列に縦に並んでいると仮定。

 Sub test()
    Dim i As Long
    Dim j As Long
    Dim cw As String
    Dim vw As Variant

    For i = 1 To Cells(Rows.Count).End(xlUp).Row
        cw = Replace(Cells(i, "A").Value, vbLf & vbLf, vbLf)
        vw = Split(cw, vbLf)
        For j = 0 To UBound(vw)
            Cells(i, 2 + j).Value = vw(j)
        Next j
    Next i
 End Sub
（???） 2016/08/26(金) 16:33

 もし、セル内改行が連続している場合一つとみなして区切る場合、区切り位置では2/3で連続した区切り文字は1文字として扱う
 にチェックを入れる。
（ねむねむ） 2016/08/26(金) 16:58

コメント返信：

[ 一覧(最新更新順) ]

[[20160826153542]] 『改行のあるセルの分割につきまして』（TAKAちゃん） ページの最後に飛ぶ

[[20160826153542]]　『改行のあるセルの分割につきまして』（TAKAちゃん）　ページの最後に飛ぶ