Excel Maniacs

余計な改行文字を削除

　一太郎Webフォーラムに余計な改行文字を削除したいのだが・・・

という投稿があった。『具体的には、句点「。」に続く改行文字は残して

その他の余計な改行文字を削除する方法』を知りたいということだ。

(●`ε´●)：簡単だな。すぐに思いつくのは1文字ずつ判定して

　　　　　　改行文字だったら、さらにひとつ手前が句点かどうかを

　　　　　　判定する・・・・句点でなければ改行文字を削除する・・・

【´･ω･`】：うん、そんなカンジでいいと思うよ。

　　　　　　でも、マクロを使わなくても出来るよ

１）「句点＋改行文字」を本文に出てこない文字に置換する。
　　例えば@@@などに･･･。

２）改行文字を置換して消去する。（置換(R)テキストボックスには何も入力しない。）

３）@@@を「句点＋改行文字」に置換する。

※改行文字は置換ダイアログボックスの「メニュー」の
▼をクリックすれば検索文字などに使えます。

(●`ε´●)：でも、おいらどうしてもマクロでやりたいんだ。

【´･ω･`】：じゃあ、こんなのでどう？

文字全置換(.検索文字列="。\n",.置換文字列="@@@",.検索方向=3,.あいまい検索=0,.確認=0)
文字全置換(.検索文字列="\n",.置換文字列="",.検索方向=3,.あいまい検索=0,.確認=0)
文字全置換(.検索文字列="@@@",.置換文字列="｡\n",.検索方向=3,.あいまい検索=0,.確認=0)

(●`ε´●)：３行マクロだな？

【´･ω･`】：うん、これでたいていの場合はなんとかなると思うけど・・・。

(●`ε´●)：これ・・・、記録マクロだろ？

【´･ω･`】：へへへ、ばれた？

ごじらを逆さまに(3)

【´･ω･`】：そうそう、この「ごじら」を「らじご」にする問題・・・。

　　　　　　３行マクロでやると・・・

　　　　　For %i = 1 To Len(Range("A1"))
　　　　　　　Range("B1") = Range("B1") & Mid(Range("A1"), Len(Range("A1"))-%i +1,1)
　　　　　next

(●`ε´●)：これでも同じだな。

　　　　　For %i = 1 To Len(Cells(1,1))
　　　　　　　　cells(1,2) = Cells(1,2) & Mid(Cells(1,1), Len(Cells(1,1))-%i +1,1)
　　　　　Next

　　　　　ま、参考までに・・・ということだ。

座席表作成(4)

悪児さん、コメント、有り難うございます。

仰るとおり、座席表作成の３行マクロは実用的に使えるものでは

ありません。あくまでも一発芸です。(^^ゞ

くまぷーは普段はこのようなコードは書きません。(^^ゞ

＞(●`ε´●)：ここまで来ると可読性がいいとは言えないな・・・・。

　上の科白にあるとおり、褒められたものではありません。

＞初心者向けとは、書いてなかったかな？(^^)ゞ

このコメントのことですか？

カテゴリーが「３行マクロ」になっているものは

初心者は意識していません。(^^ゞ

もしも、このコメントのことでしたら、カテゴリーが

「三四郎マクロ初心者奮戦記」になっているもののこと（１５パズルとか）です。

カテゴリー「三四郎マクロ初心者奮戦記」は解説を

丁寧にしているつもりです。

ごじらの問題も初心者の方を意識していますが、これは

関数を主体にしていてマクロはオマケなので

分類を「三四郎マクロ初心者奮戦記」にはしていません。

>要するに、３行にする「ため」に、
>色々なものを犠牲にしている・・・
>それは、マクロの本道（ってなに？(^^;)(^^;)）から
>外れていると、悪児は思います。(^^)ゞ

仰るとおりだと思います。

繰り返しますが３行マクロは、あくまでも一発芸です。(^^ゞ