セル内改行された文字列の上段のみ消す

質問

いつもお世話になっています。
セル内改行された文字列の上段のみ消す方法を探しています。
たとえば、
セルA１に　１２３４５
　　　　　 ６７８９０
のようにセル内で改行されたデータがあります。
そのうちの上段１２３４５のみを削除したいのですが、
そういったことは可能でしょうか。
関数でもマクロでも方法があればなのですが。

よろしくお願いします。

回答No.1

fmxBeem · ベストアンサー

A1セルの隣に結果が出るのでよろしければ、B1セルに
＝RIGHT(A1,LEN(A1)-FIND(CHAR(10),A1))
でOKです。
CHAR(10)が改行コード、FIND(CHAR(10),A1)が、A1の左側から検索して改行コードが難文字目にあるかを探しだし、最終的にRIGHT関数でA1の右側から改行コードの手前までの文字列を抜き出しています。

お礼

早速にご回答ありがとうございました。
解決しました。

回答No.4

ushi2015

こんばんは
対象のセル範囲を選択して、Ｃｔｒｌ+Ｆで検索と置換ダイアログを出して
置換タブに切り替えて検索する文字に、＊に続けてＣｔｒｌ+Ｊと入力して
すべて置換としてみて下さい。

お礼

早速にご回答ありがとうございました。
参考にさせていただきます。

回答No.3

imogasi

A１セルに、文字列１＋（Ａｌｔ＋Ｅｎｔｅｒ）＋文字列２の入力があるとき
=REPLACE(A1,1,FIND(CHAR(10),A1),"")
で文字列２になる。

お礼

早速にご回答ありがとうございました。
参考にさせていただきます。

回答No.2

山田 太郎（@f_a_007）

【VBAバージョン】

Option Explicit

Public Function CutStr(ByVal Text As String, _
　　　　　　　　　　　　ByVal Separator As String, _
　　　　　　　　　　　　ByVal N As Integer) As String
　　Dim strDatas() As String

　　strDatas = Split("" & Separator & Text, Separator, , 0)
　　CutStr = strDatas(N * Abs(N <= UBound(strDatas)))
End Function

CutStr()を利用するって手もあります。
同関数は、A1が空欄の場合は""を表示します。

お礼

早速にご回答ありがとうございました。
参考にさせていただきます。