如何在Excel中特定文字上方插入空白行？

當您在工作表上操作時，是否曾經嘗試過在某一列的特定文字上方插入空白行？例如，在A列中有一些名字，現在，我想在包含名字“Mike”的單元格上方插入空白行，如左側截圖所示。也許，在Excel中沒有直接的方法可以解決這個問題。本文將介紹一些在Excel中處理此任務的好技巧。

使用VBA代碼在特定文字上方插入空白行

使用Kutools for Excel在特定文字上方插入空白行

使用VBA代碼在特定文字上方插入空白行

手動逐一在特定文字上方插入空白行會浪費大量時間，這裡我將為您創建一個VBA代碼，一次性在特定單元格值上方插入空白行。

1. 按住ALT + F11鍵，打開 Microsoft Visual Basic for Applications窗口。

2. 點擊插入 > 模組，然後在模組窗口中粘貼以下宏。

VBA代碼：快速在特定文字上方插入空白行

Sub test1()
'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, "Mike") > 0 Then
        Rows(xRng.Cells(i, 1).Row).Insert shift:=xlDown
      End If
    Next
End Sub

3. 然後按F5鍵運行此代碼，將彈出一個對話框提醒您選擇要插入行的列數據，其中包含特定文字，請參見截圖：

4. 然後點擊確定按鈕，空白行已經插入到特定文字“Mike”上方。

注意：在上述代碼中，您可以根據需要從腳本If InStr(1, xRng.Cells(i, 1).Value, "Mike") > 0 Then更改文本值“Mike”為其他任何值。

使用Kutools for Excel在特定文字上方插入空白行

如果您有 Kutools for Excel，使用其選擇指定單元格功能，您可以先選擇指定的單元格值，然後應用Excel的插入工作表行工具一次性插入空白行。

安裝Kutools for Excel後，請按照以下步驟操作：

1. 選擇您要使用的數據區域。

2. 然後點擊Kutools > 選擇 > 選擇指定單元格，請參見截圖：

3. 在選擇指定單元格對話框中，選擇選擇類型下的單元格，然後在 指定類型部分下指定您需要的條件，在這種情況下，我將從指定類型中選擇等於，並輸入我要選擇的名字，請參見截圖：

4. 然後點擊確定按鈕，所有值為Mike的單元格都立即被選中，請參見截圖：

5. 選擇特定文字單元格後，請點擊開始 > 插入 > 插入工作表行，空白行將插入到所選文字上方，請參見截圖：

 立即下載並免費試用Kutools for Excel！

演示：使用Kutools for Excel在特定文字上方插入空白行