如何在 Excel 中於特定文字後插入一個空白列?
在 Excel 中,於特定文字後插入空白列,不僅能提升資料的可讀性,更能有效組織內容。無論您處理的是任務清單、交易紀錄,還是其他結構化資料,在特定文字後加入空白列都能清楚分隔並歸類相關項目,讓整體內容一目了然。這項技巧在準備報表、發票或日誌時尤其實用,有助於突顯關鍵資訊區塊。若缺乏明確分隔,大型資料集將難以檢閱、分析或瀏覽。雖然手動插入空白列對長清單而言費時費力,但透過自動化或半自動化方式,即可大幅簡化此流程。
![]() | ![]() | ![]() |
使用 VBA 程式碼在特定文字後插入空白列
透過 VBA(Visual Basic for Applications),您能自動化在資料集中特定文字值後插入空白列的流程,特別適合處理大型資料集或需反覆執行的任務。由於 VBA 支援自訂條件與處理範圍,因此即使條件或工作表結構經常變動,也能靈活應對。
⚠️ 注意:執行任何巨集前,務必先備份檔案!因為 VBA 可能導致無法復原的變更,修改正在使用的活頁簿時請格外謹慎。
1. 按住 ALT + F11 鍵,即可開啟 Microsoft Visual Basic for Applications 視窗。
2. 點擊插入> 模組,並將下列程式碼貼到模組視窗中:
📜 VBA 程式碼:在特定文字後插入空白列
Sub Insertrowbelow()
' Updated by 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」替換為任何需要定位的文字。請務必確保文字完全相符(包括大小寫與空格),以免產生錯誤結果!
3. 按下 F5 鍵以執行巨集。在出現的對話方塊中,選取包含您要處理之特定文字的欄位。處理大型資料集時,可縮小檢視比例或使用篩選器,確保準確選取!

4. 點擊確定,巨集將在每個包含指定文字的儲存格後插入空白列。請立即檢查結果是否符合預期,必要時可調整條件!
![]() | ![]() | ![]() |
✅ 優點:可自動化處理大型資料集的重複性作業,並能根據不同關鍵字與欄位範圍完全自訂。
⚠️ 限制:需具備基本 VBA 知識;若未事先儲存備份,操作將無法復原。
🛠️ 疑難排解提示:若空白列未正確插入,請確認目標文字與儲存格內容完全一致。建議一次僅針對單一欄位執行巨集,以避免產生非預期結果。
使用 KUTOOLS AI 在特定文字後插入空白列
難以在 Excel 中於特定文字後插入空白列嗎?讓 KUTOOLS AI 為您簡化這項任務!透過其 AI 自動化功能,無需手動掃描資料集或撰寫任何 VBA 程式碼,KUTOOLS AI 即可立即識別包含特定文字的列,並在您需要的位置精準插入空白列。
安裝 Kutools for Excel 後,只需前往 Kutools>AI 助手,即可開啟「KUTOOLS AI 助手」窗格。
- 選取您要處理的資料欄位,即可根據特定文字自動插入空白列。
- 請在聊天框中清楚輸入您的需求,例如:
在選取範圍中,於特定文字「In progressing」之後插入一個空白行 - 按下 Enter 鍵,或點擊傳送按鈕,KUTOOLS AI 將立即分析您的指令。分析完成後,只需點擊執行,即可輕鬆完成操作!
💡 提示:
• KUTOOLS AI 非常適合不想使用公式或 VBA 的使用者,操作直覺又快速。但請確保您的關鍵字足夠獨特,以免在錯誤位置插入空白列,執行後務必檢查結果。
• 為確保最佳效果,請在 AI 聊天框中清楚說明相關條件。執行大量操作前,建議先備份您的工作表。
✅ 優點:無需程式設計知識,輕鬆應對大型或複雜資料集,並能根據不同條件快速調整。
⚠️ 限制:需先安裝 Kutools for Excel 增益集。部分複雜或高度特定的任務,可能需要更明確的指令才能正確執行。
使用 Excel 公式(輔助欄)在特定文字後插入空白列
若您不想使用 VBA 或增益集,結合輔助欄的 Excel 公式能提供一種簡單又透明的方式,協助您輕鬆找出應插入空白列的位置。此方法特別適合小型至中型資料集,尤其當您更重視清晰度與手動控制,而非自動化時。
此方法的運作方式:您將在資料旁建立一個輔助欄位,用來標記包含特定文字的列;接著,只要對該輔助欄位進行排序或篩選,就能輕鬆識別並在適當位置手動插入空白列。
✅ 優點:無需巨集或增益集,提供完整透明度,並讓您在套用前預覽所有變更!
⚠️ 限制:需額外手動操作;不建議用於極大型資料集或高度複雜的比對條件。
步驟:
- 新增輔助欄。
假設您的資料位於 A 欄,且希望在每個包含 In progressing 的儲存格後插入一個空白列。請新增一欄(例如 B 欄),並在 B1 輸入下列公式:=IF(A1="In progressing",ROW(),FALSE) - 向下拖曳公式。
利用填滿控點,將公式快速複製至整個輔助欄,輕鬆評估每一列資料! - 識別符合條件的列。
透過篩選或排序輔助欄位,將所有包含數值(即符合條件)的列集中在一起。 - 手動插入空白列。
針對每個已識別的列,直接在其下方使用 Excel 的快捷功能表插入一個空白列。
💡 提示:
• 若要比對部分文字而非完全相符,請使用下列公式:
=IF(ISNUMBER(SEARCH("progress",A1)),ROW(),FALSE) • 若資料集包含標題列,請從第一筆資料列(例如 A2)開始輸入公式,並相應調整儲存格參照。插入輔助列後,即可刪除該欄位,讓工作表更整潔有序。
⚠️ 常見問題:
• 處理大型資料集時,這種手動方式可能既繁瑣又容易出錯。
• 請務必再次確認空白列是否已正確插入,因為篩選器、合併儲存格或隱藏列都可能影響準確性。
KUTOOLS AI 特別適合不想使用公式或 VBA 的使用者,操作簡單直覺,對重視便利性與效率的您來說,絕對是提升工作效率的利器!雖然 KUTOOLS AI 通常能妥善處理文字比對,仍建議確認您的關鍵字足夠獨特,以避免意外插入空白行。我們的網站提供數千篇教學文章,助您深入探索 Excel 自動化與各類生產力工具,輕鬆優化工作流程!
更多相關插入行文章:
- 複製並多次插入列,或將該列重複 X 次
- 在日常工作中,您是否曾需要複製某一列(或每一列),並在工作表中現有資料列的下方多次插入?例如,我有一個儲存格範圍,現在希望將每一列複製後貼到下一行,並重複此動作 3 次,如下方截圖所示。在 Excel 中,您會如何完成這項任務?
- 在 Excel 中,當數值變更時插入空白列
- 假設您有一組資料,希望在數值變更的位置插入空白列,以分隔同一欄中連續相同的數值,如下方截圖所示。本文將為您介紹幾種實用的解決技巧。
- 在 Google 工作表中快速插入多列或多欄
- 本文將介紹一種簡單方法,讓您在 Google 試算表中快速插入多個空白列或欄。
- 在 Excel 中於特定文字上方插入空白行
- 當您在工作表中作業時,是否曾想在某一欄包含特定文字的儲存格上方插入空白列?例如,A 欄中列出多個姓名,而您希望在所有包含「Mike」的儲存格上方新增空白列,如左側截圖所示。Excel 並未提供直接執行此操作的功能,但本文將為您介紹幾種實用技巧,協助您輕鬆達成目標。
最佳 Office 生產力工具
| 🤖 | KUTOOLS AI 助手:基於以下內容徹底革新數據分析:智慧執行 | 產生程式碼| 建立自訂公式 | 分析資料並產生圖表| 呼叫增強函數…… |
| 熱門功能:尋找、醒目提示或標記重複值 | 刪除空白行 | 合併列或儲存格而不遺失資料 | 不使用公式的四捨五入…… | |
| 高級 LOOKUP:多重條件 VLookup | 多重數值 VLookup | 跨多個工作表 VLookup | 模糊查找…… | |
| 高級下拉列表:快速建立下拉式清單 | 相依式下拉式清單 | 多選下拉式清單…… | |
| 欄位管理員:新增指定數量的欄位|移動欄位|切換隱藏欄位的可見狀態|比較範圍與欄位…… | |
| 精選功能:網格聚焦 | 設計視圖 |增強編輯欄 | 工作簿與工作表管理員 | 資源庫(自動文字)| 日期提取 | 合併工作表 | 加密/解密儲存格 | 依清單傳送電子郵件 | 超級篩選 | 特殊篩選(篩選粗體儲存格/斜體/刪除線……) ...... | |
| 頂尖 15 工具組:12 文字工具(添加文本,刪除特定字符,……)| 50+ 圖表 類型(甘特圖,……)| 40+ 實用公式(基於生日計算年齡,……)| 19 插入工具(插入二維碼,從路徑插入圖片,……)| 12 轉換工具(金額轉大寫,匯率轉換,……)| 7 合併和拆分工具(高級合併行,分割儲存格,……)|……以及更多 |
運用 Kutools for Excel 強化您的 Excel 技能,體驗前所未有的高效能!Kutools for Excel 提供超過 300 項進階功能,大幅提升生產力並節省寶貴時間。立即點擊,取得您最需要的功能……
Office Tab 為 Office 帶來分頁式介面,讓您的工作更輕鬆自在!
- 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能,以及 Access、Visio 與 Project。
- 在同視窗的新分頁中開啟並建立多份文件,而非另開新視窗。
- 每天為您提升 50% 的工作效率,並省下數百次滑鼠點擊!
所有 Kutools 增益集,一個安裝程式
Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集,以及 Office Tab Pro,非常適合需要跨多個 Office 應用程式協作的團隊使用!
- 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集,以及 Office Tab Pro
- 一個安裝程式,一個授權— 數分鐘內即可完成設定(支援 MSI)
- 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
- 30 天完整功能試用— 無需註冊,無需信用卡
- 超值之選— 比單獨購買各增益集更省費用


