[[20170819142419]]　『空欄セル（特定語彙）で改行』（ひろた）　ページの最後に飛ぶ

『空欄セル（特定語彙）で改行』（ひろた）

空欄セルもしくは特定の語彙で改行できるでしょうか。

具体的例としては、
山田、山口、山本、広田、空欄orA、大山、大井、藤井、坂本、空欄orA、酒井、山根、木村、小山

のようにエクセル上で横一列に文字が入っております。、区切りが一つのセルです。空欄ごとにグループが区切られています。この空欄セルごとに改行をしたいです。

イメージは下の表現です。
山田、山口、山本、広田
大山、大井、藤井、坂本
酒井、山根、木村、小山

可能でしょうか。説明しきれていない可能性もございますので、不明点ございましたら、指摘していただけますと幸いです。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

マクロでもよいですか？

（マナ） 2017/08/19(土) 15:09

問題ありません。

実際にはかなりのデータ数が、横に並んでいるため、繰り返し可能なコードですと大変に助かります。
（ひろた） 2017/08/19(土) 15:13

データが１行目にあり、並べ替えたデータは３行目からとすると
こんな感じです。

 Option Explicit

 Sub test()
    Dim 行 As Long, 列 As Long
    Dim c As Range
    Dim s

    行 = 3  '転記開始行
    列 = 1

    For Each c In Range("A1", Cells(1, Columns.Count).End(xlToLeft))
        s = c.Value
        If s <> "" And s <> "A" Then
            Cells(行, 列).Value = s
            列 = 列 + 1
        Else
            列 = 1
            行 = 行 + 1
        End If
    Next

 End Sub

（マナ） 2017/08/19(土) 15:20

はい、意味がよく解りません。

空欄orA　って何？？？

 >イメージは下の表現です。 
 >山田、山口、山本、広田 
 >大山、大井、藤井、坂本 
 >酒井、山根、木村、小山

１つのセル内改行のでしょうか？？？？？

 仮に、半角スペースで、セル内改行でないとして。
 ワードを起動して、ワードにデータを貼り付ける。

 検索する文字「、 、」　（、と半角スペースと、）
 置き換え文字「^p」
 すべて置き換え後、改行されたデータをコピーして、
 エクセルに形式を選択して貼り付けで、テキストを選んで貼り付け。
（BJ） 2017/08/19(土) 15:28

マナ様：実行したところ問題なく処理できました。　

BJ様：ワードを利用する発想がなく、驚きです。こちらも問題なく処理できました。

Aの意味は、通常空欄としてデータセットを保有していますが、文字指定後、改行するコードを打つ場合を想定し、何かしらの文字を挿入する（この場合例としてA）ことは可能です。という意味でした。
すいません、補足し忘れておりました。

お二方とも、稚拙な質問ではありましたが、ご対応いただきありがとうございました。
（ひろた） 2017/08/19(土) 15:56

コメント返信：

[ 一覧(最新更新順) ]

[[20170819142419]] 『空欄セル（特定語彙）で改行』（ひろた） ページの最後に飛ぶ

[[20170819142419]]　『空欄セル（特定語彙）で改行』（ひろた）　ページの最後に飛ぶ