Excel セル内の最初と最後の改行を削除

セルの中身がで下の4行のような状態のとき、
最初と最後の改行を削除したいです。
――――――――――――
↓
あいうえお↓
かきくけこ↓
↓
――――――――――――
（改行は「↓」で表しています）

Trim関数では消せないし、
Clean関数では全ての改行を消してしまいます。

こちらの記事では、ユーザー定義関数が紹介されていますが・・・・
↓
文字列の前後・セルの先頭と末尾の改行を削除する:エクセルマクロ・Excel VBAの使い方/ユーザー定義関数
https://www.relief.jp/docs/013815.html

これを参考にすると、
複数のセル範囲に適用したい場合は、
繰り返し処理で、1セル単位で適用することになると思いますが・・・

一括でサクッと処理する方法ってありませんよね？

※テキスト形式で出力して処理する以外で。

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

• 最初と最後の改行数は統一されておりません。
  
  後出し補足ですみません。

    補足日時：2020/09/21 20:18

• 正規表現置換アドインの導入は考えていません。

    補足日時：2020/09/21 20:42

• 沢山の回答ありがとうございました。
  アイデアや発見が得られました。

    補足日時：2020/09/26 18:27

No.9 ベストアンサー 回答者： enunokokoro 回答日時： 2020/09/21 21:36

No.5の回答者です。

勘違いしていました。
こちら↓のようなことを、選択範囲で処理したいのですね。
https://www.relief.jp/docs/013815.html
一部修正版

Sub DeleteStartEndLetter()
Dim r As Range
For Each r In Application.Selection
If Len(r.Value) > 0 Then
　　r = TrimLF(r)
End If
Next
End Sub

Function TrimLF(r As Range) As String
Dim strTmp As String
strTmp = r
　Do Until Left(strTmp, 1) <> vbLf
　　strTmp = Mid(strTmp, 2)
　Loop
　Do Until Right(strTmp, 1) <> vbLf
　　strTmp = Left(strTmp, Len(strTmp) - 1)
　Loop
　TrimLF = strTmp
End Function

これなら、TrimLFの戻り値で処理できると思う。

この回答へのお礼

参考マクロありがとうございます。
やはり１セル毎に改行削除処理させる方法に落ち着く感じですよね。

お礼日時：2020/09/22 18:07

No.13 回答者： ずんだしらたま 回答日時： 2020/09/23 17:55

説明不足ですみません。

全文字列をreplace関数に放り込めば、連続改行を全部まとめて一つの改行にできたと思ったのですが、記憶違いでしたらすみません。

この回答へのお礼

ありがとうございます。
VBA関数のreplaceですよね。
改行２個→１個の置き換えでは、
改行3個、4個→2個、
改行5個、6個→3個、
という具合で、一度に減らすことはできませんでした。

お礼日時：2020/09/26 18:20

No.12 回答者： chonami 回答日時： 2020/09/23 14:41

>セル内容で使用されていない連続スペースを置換キーにすれば…

情報としてお出しではなかったですが、セルの内容にスペースが含まれる場合があるということでしょうか？
TRIMを使えばスペースは1つ分になっちゃうので改行を置換したスペースなのか元からあるスペースなのか分からなくなりそうですね。
マクロで処理できそうですので、そちらにお任せします。

この回答へのお礼

ありがとうございます。
試してみました。
Worksheet関数のTRIMだと先頭と末尾のスペース削除に加えて連続スペースが１個になるけど、
VBA関数だと先頭と末尾のスペース削除のみ、
のようです。
驚きの発見でした！

お礼日時：2020/09/23 15:24

No.11 回答者： ずんだしらたま 回答日時： 2020/09/22 18:05

すみません、間違えました改行コード2つを改行コード1つに更新です。

この回答へのお礼

ありがとうございます。
改行コードを２個→１個に置換。
これを数回繰り返せば複数連続の改行を１個にする。
その後に、MIDで２文字削って出力する。
こんな感じの流れになるでしょうか。
なるほど！
参考にさせていただきます。

お礼日時：2020/09/23 15:17

No.10 回答者： ずんだしらたま 回答日時： 2020/09/22 18:03

Replace関数で改行コードをブランクに変更してもダメでしょうか。

No.8 回答者： chonami 回答日時： 2020/09/21 20:51

最初と最後の改行は、1つという前提で考えていたので前の回答はやめておきます。

ところで、改行をスペースに置換したらTRIM関数で解決するんじゃないですかね？

この回答へのお礼

ありがとうございます。
説明不足ですみませんでした。

１．改行をスペース5個とか多めに置換してTRIM。
２．スペース5個を改行に置換。

とか、セル内容で使用されていない連続スペースを置換キーにすれば…
これでもいけそうかも。

お礼日時：2020/09/21 21:06

No.7 回答者： enunokokoro 回答日時： 2020/09/21 20:23

No.5の回答者です。

改行があることを前提にしているMID関数での処理なので、最初と
最後に改行がない場合は、1字目と最後の文字が削除されます。

IFを使って、改行なのかどうかの判定をすることで、最初と最後の
改行以外を残すことは可能だと思います。
http://officetanaka.net/excel/vba/function/InStr …
例えば、LEFT関数やRIGHT関数を使って調べるとか。

この回答へのお礼

ありがとうございます。

結局のところ、セルの内容に対して、
・1文字目が改行じゃなくなるまで、1文字ずつ判定して削除し…
・最後の文字が改行じゃなくなるまで、1文字ずつ判定して削除し…
という処理をして、

複数セル範囲については、
その処理を1セルごとに当てて行くという流れにするしかない、
ということになるでしょうか。

正規表現での置換ができれば、セル範囲に対して
先頭の改行削除5回、末尾の改行削除5回とか、
ざっくりした処理で済むんだけど…。

お礼日時：2020/09/21 20:41

No.6 回答者： t_fumiaki 回答日時： 2020/09/21 19:49

>>全ての改行が処理されてしまうのです。

=IF(A1="
",SUBSTITUTE(A1,"
",""),A1)

でしょうか。

この回答へのお礼

ありがとございます。
ものとセルの中身が複数行になっております。
頂いた式だと条件がA1の内容が「改行のみ」かどうか、で処理しているので、
望んでいる結果は得られません。

お礼日時：2020/09/21 20:31

No.5 回答者： enunokokoro 回答日時： 2020/09/21 19:46

別セルだと、こちら↓。

　=MID(A1,2,LEN(A1)-2)

マクロだと、こちら↓の応用で。
https://oshiete.goo.ne.jp/qa/2557495.html

Sub DeleteStartEndLetter()
Dim r As Range
　For Each r In Application.Selection
　　If Len(r.Value) > 0 Then
　　　r.Value = Mid(r.Value, 2, Len(r.Value) - 2)
　　End If
　Next
End Sub

この回答へのお礼

ありがとうございます。
他の方の回答へコメントしたのですが、
最初と最後の改行数は統一されておりません。
後出しですみません。

お礼日時：2020/09/21 20:20

No.4 回答者： chonami 回答日時： 2020/09/21 19:42

改行を★などに置換したら、最初と最後以外を抜き出すことはできるのでは？

それからまた、改行に置換しては？

後は、別セルに改行がいくつあるか出しておいて、SUBSTITUTEの第4引数で数を指定して(最初のは1つ目なので無条件で指定できるし)置換するとか。

この回答へのお礼

ありがとうございます。
改行を★に置換したとして、セルがこんな感じになって…
「★あいうえお★かきくけこ★★」　改行数4
「★★さしすせそ★たちつ★てと★」　改行数5
として・・・
SUBSTITUTEで前後の★を取る？
すみません、思いつかないので
具体的に教えていただけないでしょうか？

お礼日時：2020/09/21 20:10