2行目だけを削除したい

質問

Excelです。
1つの情報が上下2行に分かれて表示されています。
2行目の情報だけを、一括削除する方法を教えてください。
数があるので手間がバカになりません。
よろしくお願いいたします。

回答No.1

kkkkkm · ベストアンサー

削除したいセルを選択し、以下のマクロを実行して試してみてください。ただし、改行せずにセルの幅を調整して2段に表示されているものは対応しません。

Sub Test()
Dim mRng As Range
For Each mRng In Selection
mRng.Value = Split(mRng.Value, vbLf)(0)
Next
End Sub

回答No.3

msMike

=LEFT(A1,FIND(CHAR(10),A1)-1)
を利用するか、
範囲選択⇒Ctrl+H⇒[検索する文字列]ボックス内でCtrl+Jをパシーッ⇒[すべて置換]を「エイヤッ!」と叩きつけるか、
お好みでどうぞ。
オ・シ・マ・イ

回答No.2

aokii

空いている列（仮にH列としておきます）に1,空白 ,2, 空白,3, 空白...と連番と空白のデータを下にドラッグコピーしてからその列（仮にH列としておきます）を優先されるキーとして並べ替えてみてはいかがでしょう。