[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『空欄セル(特定語彙)で改行』(ひろた)
空欄セルもしくは特定の語彙で改行できるでしょうか。
具体的例としては、
山田、山口、山本、広田、空欄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 って何???
>イメージは下の表現です。 >山田、山口、山本、広田 >大山、大井、藤井、坂本 >酒井、山根、木村、小山
1つのセル内改行のでしょうか?????
仮に、半角スペースで、セル内改行でないとして。 ワードを起動して、ワードにデータを貼り付ける。
検索する文字「、 、」 (、と半角スペースと、) 置き換え文字「^p」 すべて置き換え後、改行されたデータをコピーして、 エクセルに形式を選択して貼り付けで、テキストを選んで貼り付け。 (BJ) 2017/08/19(土) 15:28
BJ様:ワードを利用する発想がなく、驚きです。こちらも問題なく処理できました。
Aの意味は、通常空欄としてデータセットを保有していますが、文字指定後、改行するコードを打つ場合を想定し、何かしらの文字を挿入する(この場合例としてA)ことは可能です。という意味でした。
すいません、補足し忘れておりました。
お二方とも、稚拙な質問ではありましたが、ご対応いただきありがとうございました。
(ひろた) 2017/08/19(土) 15:56
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.