マクロ 複数行を1行にしたい

◯◯◯ abcd
　　　 efg
××× hijk
　　　 lmn
△△△ opqr
　　　 stu

↓

◯◯◯ abcdefg
××× hijklmn
△△△ opqrstu

というふうに処理できるようにマクロを作成したいです。
どなたかご教授願えますか？

質問者からの補足コメント

• テキストをコピペでエクセルに貼り付け、ボタンを押すことで↓以下の表示になるようにしたいです。

    補足日時：2021/09/21 12:06

No.2 回答者： fujillin 回答日時： 2021/09/21 19:58

こんばんは

ご提示のデータが、セル内改行でつながっているのか、はたまた1行ずつ各セルに入っているのかもわからないので、なんともですけれど・・・

＞というふうに処理できるようにマクロを作成したいです。
＞どなたかご教授願えますか？
何を知りたいのかも書いてないので、ことらについてもなんともですが、当たるも八卦で全体的な概要を・・・


いずれにしろ、ご提示の1行単位にデータを分割取得して、必要に応じて連結する処理を行えばよさそうです。

一つのセル内の文字を分割するのなら、セルのテキストをセル内改行コードを区切りにしてSplit関数で分割すれば、各行を配列として取得できます。
https://docs.microsoft.com/ja-jp/office/vba/lang …

1行ずつ一つのセルに入っているのなら、セル範囲をまとめてValueで取得すれば、同様に配列に取得できます。
https://docs.microsoft.com/ja-jp/office/vba/api/ …

テキストを連結するのには、シートの関数と同様「&」演算子で連結すれば良いです。
https://docs.microsoft.com/ja-jp/office/vba/lang …

数が多い場合はJoin関数が便利かもしれませんが、ご提示の場合は（よくわからないけれど）2つずつ（？）のようなので、必要ないかも。
https://docs.microsoft.com/ja-jp/office/vba/lang …

必要に応じて配列の要素数分ループすればよさそうですが、数がわからない場合はLBound、UBoundなどで引数の範囲を確認することが可能です。

もしかすると、「不要な空白を削除」する必要があるのかも知れません。
（ご提示のデータがそうなっているのかも知れないので・・・）
その場合は、連結する前にTrimなどで空白を除いておけば良いでしょう。
https://docs.microsoft.com/ja-jp/office/vba/lang …

No.1 回答者： めくりや 回答日時： 2021/09/21 11:28

改行コード（改行文字）とは - IT用語辞典 e-Words