Note: The other languages of the website are Google-translated. Back to English

Excelですべての空白行またはセルの最初の行のみを削除するにはどうすればよいですか?

複数行がセル内の空白と混ざっているワークブックを受け取る場合があります。 セル内のこれらの空白行を削除するにはどうすればよいですか? そして、最初の行だけを削除するのはどうですか? この記事は、ステップバイステップで対処するのに役立ちます。

VBAコードを使用してセル内のすべての空白行を削除する
VBAコードを含むセルの最初の行のみを削除します


VBAコードを使用してセル内のすべての空白行を削除する

以下のスクリーンショットに示すように、セル内のすべての空白行を削除するには、次のVBAコードを実行して実行します。

1。 プレス 他の + F11 キーボードのキーを押すと、 アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、以下のVBAコードをコピーしてに貼り付けます モジュール 窓。

VBAコード:セル内のすべての空白行を削除します

Sub DoubleReturn()
Dim xRng As Range, xCell As Range
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
  For I = 1 To Len(xCell) - Len(WorksheetFunction.Substitute(xCell, Chr(10), ""))
   xCell = Replace(xCell, Chr(10) + Chr(10), Chr(10))
  Next
Next
End Sub

3。 プレス F5 コードを実行するためのキー。 次に、削除する空白行のあるセルを選択します。 Kutools for Excel ダイアログボックス。 そして最後に OK ボタン。

次に、以下のスクリーンショットに示すように、指定したセルからすべての空白行が削除されていることがわかります。 テキストはまだ別の行にあります。


VBAコードを含むセルの最初の行のみを削除します

以下のスクリーンショットに示すように、セルA2とA3の最初の行を削除するには、次のVBAコードが役立ちます。

1。 プレス 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、以下のVBAコードをコピーしてに貼り付けます モジュール 窓。

VBAコード:セルの最初の行のみを削除します

Option Explicit
Sub RemoveFirstLine(ByRef Target As Range)
    Dim xCell As Range
    For Each xCell In Target.Cells
        xCell.Value = Right(xCell.Value, Len(xCell.Value) - InStr(1, xCell.Value, vbLf))
    Next
End Sub

Sub StartRemove()
Dim xRng As Range
   On Error Resume Next
   Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
   If xRng Is Nothing Then Exit Sub
   On Error Resume Next
   RemoveFirstLine xRng
End Sub

3。 プレス F5 コードを実行するためのキー。 ポップアップで Kutools for Excel ダイアログボックスで、最初の行だけを削除する必要があるセルを選択してから、 OK ボタン。

次に、以下のスクリーンショットに示すように、指定したセルからすべての最初の行が削除されていることがわかります。


関連記事:


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (8)
5の5を評価 · 1の評価
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、
これは素晴らしい作品です。 数字で始まっていない行だけを削除するようにコードを調整するにはどうすればよいですか?

ありがとう、そして最高、
ジャック
このコメントは、サイトのモデレーターによって最小化されました
こんにちはジャック、
申し訳ありませんが、まだそれを助けることはできません。 コメントありがとうございます。
このコメントは、サイトのモデレーターによって最小化されました
これを適応させて、最初の行ではなく最後の行を削除する方法を知っていますか? TIA
このコメントは、サイトのモデレーターによって最小化されました
Jegforstårdesværreikkeetkvækafoenstående。 fjerne tomme linieriExellでderikkeen nemogligetilmådeを見つけますか? Helst uden koder og andet mystisk!

敬具
レネ
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、
元のテキストをセル内の異なる行に保持したくない場合は、次の方法を適用して実行できます。
1. 検索と置換機能を使用する:
Ctrl+Hキーを押します。 開いている[検索と置換]ダイアログボックスで、クリックして[検索する文字列]ボックスをアクティブにします。 Altキーを押しながら、テンキーで010と入力します。 [置換]ボックスを空のままにして、[すべて置換]ボタンをクリックします。 しかし、すべてのテキストは同じ行に集中しています。
2. ヘルパー列で次の式を使用します:
=SUBSTITUTE(A1, CONCATENATE(CHAR(13),CHAR(10),CHAR(13),CHAR(10)),CONCATENATE(CHAR(13),CHAR(10)))
ここで、A1は処理するセルです。
このコメントは、サイトのモデレーターによって最小化されました
これは私の最初の VBA です。私はあなたの最初のステップに到達しただけで、これまでのところ私の問題は解決しました。 今後の参考のために、あなたの指示を印刷しました。 これまでのところ、私はラップトです。 素晴らしい指導も、あなたの質の高いスキルと詳細に感謝します。
5の5を評価
このコメントは、サイトのモデレーターによって最小化されました
これですべての行が削除されましたが、唯一の問題は、単一のセルを実行するのに非常に時間がかかり、それを実行するための大きなデータがあり、それには時間がかかりすぎると思います
このコメントは、サイトのモデレーターによって最小化されました
Tanveer Khan さん、こんにちは。
私の側では、コードは通常の速度で実行されます。 使用している Excel のバージョンを教えてください。
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護