最後の改行を削除ことは可能ですか？

質問

文字の最後に改行が入ってる場合のみ最後の改行を削除ことは可能ですか？
エクセルには
”いいい会社”の後ろに改行が入っています。

"ううう会社”と
”えええ会社"の間にも改行が入っていますが、これはこのままにしたいです。

一番最後の改行だけ削除する方法はありますか？

ｖｂａでも大丈夫なので教えてください。

回答No.3

MarcoRossiItaly · ベストアンサー

B1 セルにカーソルを置き、2 行になっている次の数式をコピーして数式バーに貼り付け。さらに、B 列のセルの書式を「折り返して全体を表示する」に設定。

=left(a1,len(a1)-countif(a1,"*
"))

お礼

ご回答ありがとうございました。

回答No.2

tom04

こんにちは！

＞ｖｂａでも大丈夫なので
というコトですので、一例です。
ごくごく簡単に

Sub Sample1()
Dim i As Long, str As String
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
str = Cells(i, "A")
If Right(str, 1) = Chr(10) Then
Cells(i, "A") = Left(str, Len(str) - 1)
End If
Next i
End Sub

こんな感じではどうでしょうか？m(_ _)m

お礼

ご回答ありがとうございました。

回答No.1

kybo

Ｂ2のセルに以下の様にいれ、下へオートフィル

=IF(RIGHT(A2,1)=CHAR(10),LEFT(A2,LEN(A2)-1),A2)

お礼

ご回答ありがとうございました。