如何在 Excel 中找出第一個非零值，並傳回其對應的欄標題？

作者Xiaoyang修改日期2025-08-08

在 Excel 中處理資料時，經常需要找出某列中第一個非零值的位置，並顯示對應的欄標題。例如，在一個資料集中，每一列代表不同的項目或人員，欄位則代表時間段或類別，您可能希望快速掌握每列數值首次出現的時間點。若靠手動逐一檢查每列的第一個非-zero 值，不僅耗時，還容易出錯，尤其面對龐大資料量時更是如此。透過自動化此查找流程，不僅大幅提升效率，更能有效降低錯誤率，讓您的分析結果更加可靠。本文將介紹多種實用方法達成此目標，涵蓋靈活運用的 Excel 公式，以及適用於大型資料集或定期報表的 VBA 巨集。

查找第一個非零值並返回對應的欄位標題

使用公式查找第一個非零值並傳回對應的欄標題
使用 VBA 巨集在每一列中找出並傳回第一個非零值的欄標題

使用公式查找第一個非零值並傳回對應的欄標題

若要快速找出指定列中第一個非零值對應的欄標題，可善用 Excel 內建公式。此方法尤其適合中小型資料集，並重視即時重新計算與設定簡便性的使用情境。

1. 選取一個空白儲存格來顯示結果；本例使用儲存格 K2.

=INDEX($B$1:$I$1,MATCH(TRUE,INDEX(B2:I2<>0,),0))

2. 輸入公式後，按下 Enter 鍵確認，接著選取 K2，並利用填滿控點向下拖曳，即可將公式快速套用至其他所需列！

使用公式查找第一個非零值並返回對應的欄位標題

注意：上述公式中，B1:I1 代表您要傳回的欄標題範圍，而 B2:I2 則是您用來分析並找出第一個非零值的列資料。

若您的資料起始欄或列不同，請務必相應調整公式中的範圍。此外，只要每列分析資料中至少包含一個非零值，此公式即可正常運作；若整列皆為零，公式將傳回錯誤。此時，建議將公式包覆於 IFERROR 函數內，如下所示：=IFERROR(INDEX($B$1:$I$1,MATCH(TRUE,INDEX(B2:I2<>0,),0)),"No non-zero")，即可以自訂訊息取代錯誤值！

此公式解法極適合需動態、即時更新結果的場景，輸入資料一旦變更，結果便自動更新。然而，若資料集過於龐大，計算速度可能受到影響；此時可考慮改用 VBA 方法，以提升工作流程自動化程度並減少手動作業。

使用 VBA 巨集在每一列中找出並傳回第一個非零值的欄標題

若您經常需要在大量欄位或大型資料集中執行此項查找任務，或希望透過自動化流程提升效率，使用 VBA 巨集將是極其實用的替代方案。此方法特別適合定期生成報表，或處理欄列大小經常變動的資料表——巨集會在指定的每一列中自動搜尋第一個非零值，並將對應的欄標題寫入目標儲存格。

1. 按一下開發人員索引標籤 >Visual Basic，即可開啟 Microsoft Visual Basic for Applications 視窗。（若未顯示「開發人員」索引標籤，可透過）檔案 > 選項 > 自訂功能區新增。）在 VBA 編輯器中，按一下插入 > 模組。

2. 將下列 VBA 程式碼複製並貼上至新模組中：

Sub LookupFirstNonZeroAndReturnHeader()
    Dim ws As Worksheet
    Dim dataRange As Range
    Dim headerRange As Range
    Dim outputCell As Range
    Dim r As Range
    Dim c As Range
    Dim firstNonZeroCol As Integer
    Dim i As Long
    Dim xTitleId As String
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set ws = Application.ActiveSheet
    Set dataRange = Application.InputBox("Select the data range (excluding headers):", xTitleId, Selection.Address, Type:=8)
    If dataRange Is Nothing Then Exit Sub
    Set headerRange = ws.Range(dataRange.Offset(-1, 0).Resize(1, dataRange.Columns.Count).Address)
    For i = 1 To dataRange.Rows.Count
        Set r = dataRange.Rows(i)
        firstNonZeroCol = 0
        
        For Each c In r.Columns
            If c.Value <> 0 And c.Value <> "" Then
                firstNonZeroCol = c.Column - dataRange.Columns(1).Column + 1
                Exit For
            End If
        Next c
        
        Set outputCell = r.Cells(1, r.Columns.Count + 1)
        
        If firstNonZeroCol > 0 Then
            outputCell.Value = headerRange.Cells(1, firstNonZeroCol).Value
        Else
            outputCell.Value = "No non-zero"
        End If
    Next i
    
    On Error GoTo 0
    MsgBox "Completed! Results are in the column to the right of your data.", vbInformation, "KutoolsforExcel"
End Sub

3. 若要執行巨集，請點選執行按鈕，或按下 F5 鍵。系統將彈出對話方塊，提示您選取不含欄標題的數據區域；巨集執行完畢後，緊鄰所選數據右側的欄位會自動填入每列第一個非零值對應的欄標題，若未找到非零值，則顯示「無非零值」訊息。

此 VBA 方法在重複性任務中表現卓越，特別適合處理大型資料集，能顯著減少手動作業。但請務必確認您的 Excel 環境已啟用巨集，並於執行程式碼前備份活頁簿。

注意：若遇到錯誤，請確認所選範圍不含標題列，且僅包含資料列。

透過 KUTOOLS AI 解鎖 Excel 的神奇功能

智慧執行：透過簡易指令，輕鬆執行儲存格操作、分析資料，並建立圖表！
自訂公式：打造專屬公式，讓您的工作流程更順暢！
VBA 編碼：輕鬆撰寫並套用 VBA 程式碼，立即提升工作效率！
公式解析：輕鬆掌握複雜公式！
文字翻譯：輕鬆打破試算表中的語言隔閡！

運用 AI 驅動的工具強化您的 Excel 能力。立即下載體驗前所未有的高效！

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多