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

Author: Xiaoyang Last Modified: 2025-08-23

當您在工作表上操作時，是否曾經嘗試過在某一列的特定文字上方插入空白行？例如，在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鍵運行此代碼，將彈出一個對話框提醒您選擇要插入行的列數據，其中包含特定文字，請參見截圖：

vba code to select the data range

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

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

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

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

Kutools for Excel 提供超過 300 種進階功能，簡化複雜任務，提升創造力與效率。 結合 AI 能力，Kutools 能夠精準自動化任務，讓數據管理變得輕而易舉。Kutools for Excel 的詳細資訊...免費試用...

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

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

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

click Select Specific Cells feature of kutools

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

set criteria in the dialog box

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

all cells with the specif text are selected

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

blank rows are inserted above the selected text

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

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

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多