特定のテキストの後に空白行を挿入するには？

Excelでは、特定のテキストの後に空白行を挿入することで、可読性が向上し、データをより効率的に整理できます。タスクのリスト、取引、または構造化されたデータなど、どのようなデータを扱っている場合でも、特定のテキストの後に空白行を追加することで、関連するエントリを分離してグループ化し、明確さを高めることができます。以下は、複数の方法を使用してこれを行うための包括的なガイドです。

VBAコードを使用して特定のテキストの後に空白行を挿入

Kutools AIを使用して特定のテキストの後に空白行を挿入

VBAコードを使用して特定のテキストの後に空白行を挿入

以下のVBAコードを適用して、必要な特定のテキストの後に空白行を挿入できます。次のように操作してください：

1. 「ALT + F11」キーを押して、「Microsoft Visual Basic for Applications」ウィンドウを開きます。

2. 「挿入」>「モジュール」をクリックし、次のコードをモジュールウィンドウに貼り付けます。

VBAコード: 特定のテキストの後に空白行を挿入

Sub Insertrowbelow()
'updateby Extendoffice
    Dim i As Long
    Dim xLast As Long
    Dim xRng As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = Application.ActiveWindow.RangeSelection.Address
    Set xRng = Application.InputBox("please select the column with specific text:", "Kutools for Excel", xTxt, , , , , 8)
    If xRng Is Nothing Then Exit Sub
    If (xRng.Columns.Count > 1) Then
        MsgBox "the selected range must be one column", , "Kutools for Excel"
        Exit Sub
    End If
    xLast = xRng.Rows.Count
    For i = xLast To 1 Step -1
      If InStr(1, xRng.Cells(i, 1).Value, "In progressing") > 0 Then
        Rows(xRng.Cells(i + 1, 1).Row).INSERT shift:=xlDown
      End If
    Next
End Sub

注: 上記のコードでは、このスクリプトの「In progressing」の部分を変更できます。「If InStr(1, xRng.Cells(i, 1).Value, "In progressing") > 0 Then」.

3. 次に、F5キーを押してこのコードを実行します。表示されるダイアログボックスで、処理したい特定のテキストを含む列を選択します（スクリーンショット参照）：

4. 次に、「OK」ボタンをクリックすると、指定されたテキストの後に空白行が挿入されます（スクリーンショット参照）：

Kutools AIを使用して特定のテキストの後に空白行を挿入

Excelで特定のテキストの後に空白行を挿入するのが難しいですか？「Kutools AI」を使って、この作業を簡単にしましょう！強力なAI機能により、データセットを手動でスキャンしたり、複雑なVBAコードを書いたりする必要がなくなります。Kutools AIは、特定のテキストを持つ行を即座に識別し、必要な場所に空白行を挿入します。

Kutools For Excelをインストール後、「Kutools」>「AI アシスタント」をクリックして「Kutools AI アシスタント」ペインを開きます。

1. 特定のテキストに基づいて空白行を挿入したいデータ列を選択します；
2. 次に、チャットボックスに要求を入力します。例えば：
   選択範囲内の特定のテキスト「In progressing」の後に空白行を挿入
3. そして、Enterキーを押すか「送信」ボタンをクリックします。Kutools AIが質問を分析し、終了後、「実行」ボタンをクリックして結果を得ます。

Excelで特定のテキストの後に空白行を挿入するには、データセットのサイズや自動化のレベルに応じて、複数の方法があります。さらに多くのExcelのヒントやコツに興味がある場合は、当社のウェブサイトには数千ものチュートリアルが用意されています。

関連する行挿入記事：