如何在Excel中查找第一個非零值並返回對應的列標題？

Author Xiaoyang Last modified 2025-08-23

在Excel中處理數據時，通常需要確定每一行中第一個非零值的位置，並顯示相應的列標題。例如，在一個數據集中，每一行代表不同的項目或人，而列則代表時間段或類別，您可能想知道每個項目的值首次出現的時間。手動檢查每一行的第一個非零值可能會非常耗時，特別是在數據量增長的情況下。自動化這個查找過程不僅能提高效率，還能減少錯誤，讓您的分析更加可靠。本文將介紹多種實現這一目標的實用方法，從使用多功能的Excel公式到運用VBA宏，這些方法對於大型數據集或常規報告尤其有用。

lookup first non-zero value and return corresponding column header

使用公式查找第一個非零值並返回對應的列標題
使用VBA宏查找並返回每行第一個非零值的列標題

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

為了有效識別包含第一個非零值的列標題，您可以使用內建的Excel公式。這種方法特別適合中小型數據集，在這類數據集中，即時重新計算和設置簡便性非常重要。

1. 選擇一個空白單元格來顯示結果；在此示例中，使用了K2單元格。

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

2. 輸入公式後，按Enter鍵確認。然後選擇K2，並使用填充柄向下拖動公式以應用於其他所需行。

use a formula to lookup first non-zero value and return corresponding column header

注意：在上述公式中，B1:I1指的是要返回的列標題範圍，而B2:I2是正在分析第一個非零值的行數據。

如果您的數據從不同的列或行開始，請記住相應調整公式範圍。此外，只要每行分析數據中至少有一個非零值，該公式就能有效運作；如果所有值都是零，公式將返回錯誤。在這種情況下，可以考慮將公式包裹在IFERROR函數中，這樣：=IFERROR(INDEX($B$1:$I$1,MATCH(TRUE,INDEX(B2:I2<>0,),0)),"沒有非零")，以返回自定義消息而不是錯誤。

這種基於公式的解決方案非常適合希望輸入數據變化時獲得即時更新的動態結果。然而，對於極大的數據集，計算速度可能會受到影響，這時您可能尋求使用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 代碼。
公式解釋：輕鬆理解複雜的公式。
文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

最佳 Office 生產力工具

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