如何根據儲存格的值，將整欄複製到另一個工作表？

當您在處理欄標題為日期、且資料分散於各欄的工作表時，經常需要從一個工作表中提取整欄資料，並複製到另一個工作表——但僅限於欄標題與您在活頁簿其他位置所指定的特定日期相符者。舉例來說，假設您在 Sheet 1 中有一個表格，其欄標題皆為不同日期，而您已在 Sheet 2!A1 輸入目標日期。您希望能輕鬆或自動地將 Sheet 1 中欄標題與 Sheet 2!A1 所指定日期相符的整欄資料複製出來，並貼至 Sheet 3——如下圖所示。這類需求常見於每日指標比較、排程管理，或為報表提取特定時間點的資料。

---

使用公式根據儲存格值將欄複製到另一個工作表

Excel 的 INDEX 與 MATCH 函數能根據另一個工作表中引用的特定標題值，從來源工作表中精準擷取整列資料。當您需要資料隨儲存格值變動自動更新時，這種方法尤其實用，大幅減少手動調整或重複複製貼上的麻煩！

1. 請先在目標工作表中選取要貼上欄資料的儲存格，例如點選 Sheet 3!A1，然後輸入下列公式：

=INDEX(Sheet1!$A1:$E1,MATCH(Sheet2!$A$1,Sheet1!$A$1:$E$1,0))

按下 Enter 套用公式，然後依需求向下拖曳填滿控點（通常拖至對應數據區域行數的位置，即 ）Sheet 1）。您會發現數據區域結束後，可能會出現零值。

2. 視需要刪除或篩選結果中的零值儲存格，以清理所提取的欄位。

注意：在此公式中，Sheet 2!A1 為包含查詢日期的儲存格，而 Sheet 1!A1:E1 則是要檢查的標題範圍。請根據您的實際資料配置與範圍大小調整這些參照；若資料表較大，請相應擴展範圍。此外，若資料包含空白儲存格，輸出結果可能會出現零值，建議搭配篩選功能或加入 IFERROR 邏輯，以獲得更乾淨、清晰的結果！

---

VBA 程式碼－根據儲存格值自動將欄複製到另一個工作表

如果您經常執行此欄位提取作業，或希望擺脫每次目標日期變更時都要重新設定公式或手動操作的麻煩，不妨試試這個簡單的 VBA 巨集！此腳本會自動在 Sheet 1 中找出與 Sheet 2!A1 所含日期相符的欄位，並將整列資料直接複製到 Sheet 3，輕鬆實現重複性工作流程的自動化，尤其適合處理動態資料結構！

注意事項：執行巨集前，請務必先儲存您的工作！由於巨集無法復原，若參照錯誤，可能會將資料複製到非預期的位置。

1. 按下 Alt + F11，開啟 Visual Basic for Applications 編輯器。在 VBA 視窗中，點選插入 > 模組，並將下列程式碼貼到空白模組中：

Sub CopyColumnByDate()
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim lookupSheet As Worksheet
    Dim matchDate As Variant
    Dim lastRow As Long
    Dim colNum As Long
    Dim headerRange As Range
    Dim cell As Range
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set wsSource = Worksheets("Sheet1")
    Set wsDest = Worksheets("Sheet3")
    Set lookupSheet = Worksheets("Sheet2")
    matchDate = lookupSheet.Range("A1").Value
    
    Set headerRange = wsSource.Range(wsSource.Cells(1, 1), wsSource.Cells(1, wsSource.Cells(1, wsSource.Columns.Count).End(xlToLeft).Column))
    colNum = 0
    
    For Each cell In headerRange
        If cell.Value = matchDate Then
            colNum = cell.Column
            Exit For
        End If
    Next cell
    
    If colNum > 0 Then
        lastRow = wsSource.Cells(wsSource.Rows.Count, colNum).End(xlUp).Row
        wsDest.Range("A1").Resize(lastRow, 1).Value = wsSource.Range(wsSource.Cells(1, colNum), wsSource.Cells(lastRow, colNum)).Value
        MsgBox "Data copied to Sheet3 column A!", vbInformation, "KutoolsforExcel"
    Else
        MsgBox "No matching header found.", vbExclamation, "KutoolsforExcel"
    End If
End Sub

2. 關閉 VBA 編輯器，回到 Excel 後，按下 Alt + F8，選取 CopyColumnByDate，再點擊執行，系統就會將 Sheet 1 中符合目標日期的欄位資料，自動複製到 Sheet 3 的 A 欄！

提示：若您的標題列不在第 1 列，請調整程式碼中的列參照；若需將資料貼到其他起始欄位，請相應修改 Range("A1")。此巨集若經常使用，建議指派給按鈕，以便快速存取！

可能發生的錯誤：若出現「找不到相符的標題」訊息，請確認 Sheet 2!A1 中的日期格式與 Sheet 1 標題列中的日期格式完全一致。

---

其他內建 Excel 方法－使用篩選功能隔離並複製欄位

Excel 內建的篩選功能，無需使用公式或巨集，就能輕鬆隔離並複製欄位！這項手動操作方式特別適合偶發性的單次任務，或不熟悉函數與腳本編寫的使用者，簡單又實用！

1. 前往 Sheet 1，選取標題列（例如第 1 列），然後點選資料 > 篩選，即可為每個標題新增下拉式選單！

2. 點擊標題列中的篩選下拉箭頭，取消勾選所有欄位，僅保留與 Sheet 2!A1 相符的日期。若日期項目眾多，可善用篩選選單中的搜尋框，快速定位該日期值！

3. 選取相符標題下方可見的欄位，按下 Ctrl + C 即可複製！

4. 前往 Sheet 3，點選您偏好的起始儲存格（例如 A1），再按下 Ctrl + V 貼上內容。

注意：篩選方法完全需手動操作，當 Sheet 2!A1 中的日期變更時，不會自動更新。此方法適用於臨時資料提取與快速檢閱等無需自動化的場景。

優點：無需公式或編碼，輕鬆上手；適合快速、直觀的任務。
缺點：若需頻繁重複操作，將相當耗時；選取欄位時若不夠謹慎，容易出錯。

---