エクセルで同じ行中にある先頭の改行スペースを消したい（文字の書き出しを先頭に持ってゆきたい）

どなたか教えてください。
エクセルで、添付図の様に行の中にある文章列の文章の書き出し前に改行が入ってしまっています。
勿論、数行くらいなら、一行づつ変えれますが、この様な行が多数あり、とても一行づつ変えてはいけません。

この時、文字の書き出しを行の先頭に持ってゆけますか？
できれば、文章列中にある改行は変化なしにしたいのです。（泣）
エクセルに詳しい方、宜しくお願い致します。

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

• 

  誤解を与えてしまったみたいですみません。
  添付画像の様に、行番号は関係ないのです。
  ※たまたま移ってしまっていた数字だったので、これらの数字を消しました。

  
  No.1の回答に寄せられた補足コメントです。 補足日時：2017/11/30 16:08

No.3 ベストアンサー 回答者： tom04 回答日時： 2017/11/30 16:25

No.２です。

以下の方法で試してみてください。

ALT＋F11キー　→　メニュー　→　挿入　→　標準モジュール　→　VBE画面のカーソルが点滅しているところに
前回のコード　Sub Sample1()～End Sub　までをコピー＆ペースト　→　Excel画面に戻る（VBE画面を閉じる）

操作したいSheetで実際やるのではなく、まずそのSheet全体を別のSheetにコピー＆ペーストします。
ペーストしたSheet上で範囲指定　→　ALT＋F8キー　→　マクロ　→　マクロ実行！

これでセルの頭に改行がある場合は削除されるはずです。m(_ _)m

この回答へのお礼

ありがとうございます。
おまけに補足までして頂き、感謝です。
一回目に頂いたデータをマクロに貼り付けて、削除したい範囲を選んでみると・・・
確かに、全ての文章の最前よりも前の改行が削除されました。
本当に驚きで、背筋に電気が走りました。

本当に本当にありがとうございます。
勿論、ベストアンサーにさせて頂きます。

お礼日時：2017/11/30 16:41

No.2 回答者： tom04 回答日時： 2017/11/30 11:42

こんにちは！

VBAになりますが、一例です。

Sub Sampe1()
Dim c As Range, k As Long, myStr As String
For Each c In Selection
If c = "" Then Exit For
myStr = c
k = 1
If Mid(c, k, 1) = vbLf Then
Do Until Mid(c, k, 1) <> vbLf
k = k + 1
Loop
myStr = Mid(c, k, Len(c))
c = myStr
End If
Next c
End Sub

※　必ずセルを範囲指定し、マクロを実行してください。

※　一旦マクロを実行すると、元データが変更されますので、
別シートでマクロを試してみてください。m(_ _)m

この回答へのお礼

ありがとうございます。
一度試してみますね！
でも、基礎知識がないので、VBAとか、色々意味が分からないのですが、調べてみて試してみますね。

お礼日時：2017/11/30 16:05

No.1 回答者： t_fumiaki 回答日時： 2017/11/30 11:28

言いたい事が伝わりません。

「行」の先頭には既になっています。

「行」を何処へ持って行きたいのかが解りません。
上図の「●もも」は4206行目にあり、下図では4989行目です。
何をドーやって、ソーなるのでしょうか？

この回答へのお礼

誤解を与えてしまった様でごめんなさん。
補足画像を入れたのですが、犠打り横の数字は行番号ではなく、単に元々あった数字が写りこんでしまったものなのです。（泣）

ですので、左の数字は無視してください。
すみません。

お礼日時：2017/11/30 16:15