Google 表單複選資料整理：用 ChatGPT 寫 Excel VBA 拆分報名名單

Google 表單很適合收集課程、活動、義工或服務報名，但只要問題類型是「核取方塊」，同一位填表者選了三個項目，匯出到試算表後通常仍是一列、一個儲存格、三個答案。人眼看得懂，Excel 的篩選、樞紐分析、名額統計和下游匯入卻很難直接使用。

本教學會把資料正規化成清楚的規則：一位填表者 × 一個選項 = 一個輸出列。例如「陳同學／課程 A、課程 C」會變成「陳同學／課程 A」和「陳同學／課程 C」兩列；時間戳記、聯絡欄等資料隨每個選項重複，而原始回應表完全不改。

所有畫面均使用虛構資料並移除帳戶、人物、作者、頻道、社交平台及宣傳識別。你也應只用測試副本跟做，不要把正式姓名、電郵、電話或完整報名名單交給 AI。

結果先行：本文提供的巨集不讀瀏覽器、不登入 Google、不上載 Excel、不寄信，也不操作外部檔案。它只讀取目前含巨集活頁簿內明確命名的來源表，完成驗證後重建一張明確命名的輸出表。

先看清楚輸入與輸出

Google 的問題類型說明確認核取方塊可多選。本文不是把三個選項拆成三欄，而是拆成三列，因為逐列結構更適合樞紐分析、每班人數、郵件合併和資料庫匯入。

完整流程：由表單到可驗收名單

1. 確認表單問題、回應目的地和存取權。
2. 在 Google Sheets 檢查欄名、複選內容和真正分隔符。
3. 下載 Excel 副本，保留一份不含巨集的原始備份。
4. 把來源頁籤命名為「表單回應」，另存測試用 .xlsm。
5. 只把資料結構和虛構樣本寫成 ChatGPT 提示詞。
6. 審查 VBA，再貼入標準 Module 並編譯。
7. 執行巨集，讓結果寫入「輸出」。
8. 核對總選項數、抽樣、空白、錯誤和重跑結果。

步驟一：先確認表單和試算表的存取邊界

在 Google Forms 的 Responses／回應分頁，可進入連結的 Google Sheet。Google 的回應管理說明亦提醒：表單協作者可能同時擁有連結試算表的權限，而移除表單協作者不等於自動移除試算表權限。處理報名個人資料前，要分別檢查兩邊的分享名單。

如果你只需要一次下載，Google 亦提供回應 CSV；本文沿用 Excel 工作流程，因為稍後要在桌面 Excel 執行 VBA。無論用 Sheet、CSV 或 XLSX，先把取得日期、表單版本和資料擁有人記錄在案。

步驟二：檢查欄名、資料列和分隔符

請逐項記錄以下規格，之後提示 AI 和驗收都會用到：

• 來源工作表：本文統一命名為「表單回應」。
• 標題列：第一列，且複選欄精確標題是「報名課程」。
• 資料起點：第二列；不要假設固定有 100 或 1,000 列。
• 分隔符：雙擊儲存格並複製到純文字編輯器，確認是半形逗號、全形逗號、分號還是換行。
• 空白規則：沒有選項的提交不產生輸出列，但來源仍保留。
• 重複規則：本文不靜默去重；若同一來源列真的重複「課程 A」，輸出也重複，讓負責人決定如何修正。

重要限制：若選項本身也可以含逗號，例如 Other／其他的自由文字是「Python, Excel」，純文字已無法分辨哪個逗號是答案、哪個是分隔符。不要用猜測修補；應限制選項字元、把自由文字放另一欄，或從保留結構的來源重新取得資料。

步驟三：下載 Excel 副本並固定測試環境

1. 在 Google Sheets 選 File／檔案 → Download／下載 → Microsoft Excel (.xlsx)。
2. 把原始下載檔改成容易辨認的備份，例如 course-registration_RAW_20260721.xlsx，不要在它執行巨集。
3. 複製成 course-registration_TEST_20260721.xlsx，再用 Excel 桌面版開啟這份 TEST 副本。
4. 在 Excel 選 File → Save As，檔案類型選 Excel Macro-Enabled Workbook (*.xlsm)，另存為 course-registration_TEST_20260721.xlsm；不要只在 Finder 或 File Explorer 改副檔名，否則內容格式與副檔名會不一致。
5. 在 .xlsm 測試檔把來源頁籤精確命名為「表單回應」。
6. 只保留 8–20 列虛構或已適當匿名化的測試資料，覆蓋正常、空白、混合分隔符和異常值。

要保留 VBA，檔案必須使用支援巨集的格式。Microsoft 的儲存巨集說明建議另存為 Excel Macro-Enabled Workbook（.xlsm）；一般 .xlsx 不會保留 VBA。

步驟四：不要上載名單，只把規格交給 ChatGPT

直接說「幫我拆分 Excel」會留下太多猜測。以下提示詞把讀取範圍、輸出定義、錯誤條件和禁止行為寫清楚，可直接複製後按你的虛構結構修改：

你是資深 Microsoft Excel VBA 工程師。請只根據以下虛構結構撰寫可在 Excel 桌面版執行的 VBA，不要要求我上載真實活頁簿。

目標：把 Google 表單核取方塊匯出的複選答案，由「一位填表者一列、所有選項同一格」正規化為「一位填表者 × 一個選項一列」。

活頁簿與欄位：
- 只操作 ThisWorkbook。
- 來源工作表名稱：表單回應。
- 輸出工作表名稱：輸出。
- 第一列是標題。
- 複選欄標題：報名課程。
- 其他欄位可能包括時間戳記、姓名、電郵、電話；輸出時要逐列原樣重複，但來源工作表不可被修改。

分隔與清理規則：
- 支援半形逗號、全形逗號、半形分號、全形分號、CRLF、CR 或 LF。
- 去除每個選項前後空格，略過空白項目。
- 不可靜默去除重複選項；若來源重複，輸出也保留，方便人工追查。

安全與穩定要求：
1. 第一行使用 Option Explicit，所有變數完整宣告。
2. 使用 ThisWorkbook.Worksheets("表單回應")，不可使用 ActiveSheet、Selection 或 Select。
3. 用 Find("*") 找整張來源表真正最後一列及最後一欄，不可只依賴固定欄。
4. 先確認來源表、標題與資料存在；若「報名課程」標題重複，要停止並清楚報錯。
5. 先在記憶體完成計數和輸出陣列；所有驗證通過後才建立或清空「輸出」。
6. 「輸出」不存在便建立，存在便只清空該輸出表；不可刪除來源或其他工作表。
7. 每個輸出列保留全部來源欄位，只把「報名課程」改成單一選項。
8. 防止以 =、+、-、@ 開頭的文字在輸出時被當成公式；數字和日期仍保留為值。
9. 檢查輸出列數不超過 Excel 工作表上限，加入完整錯誤處理，還原 ScreenUpdating、EnableEvents 和 Calculation。
10. 不准使用 Shell、Kill、FileSystemObject、HTTP、電郵、自動開啟事件或任何外部連線。

交付格式：
- 先用 8 點解釋讀取、寫入、停止條件及重跑行為。
- 提供可直接貼入「標準 Module」的完整程式碼。
- 最後提供正常、混合分隔符、空白、錯誤值、重複標題、重跑及列數核對的測試清單。
- 不要聲稱程式碼毋須測試。

模型名稱和 ChatGPT 介面會改變，重點不是選一個舊版本，而是把可驗收規格寫完整。AI 回覆仍是未受信任的程式碼草稿；逐行審查、測試副本和人工驗收都不能省略。

步驟五：使用這個可重跑、保留來源的 VBA

以下版本把整份來源讀入記憶體，第一遍只驗證及計數，第二遍建立輸出陣列；所有驗證通過後，才建立或清空「輸出」。這比一邊讀、一邊逐列刪寫更容易控制失敗狀態，也較適合數千列資料。

Option Explicit

Private Const SOURCE_SHEET As String = "表單回應"
Private Const OUTPUT_SHEET As String = "輸出"
Private Const CHOICE_HEADER As String = "報名課程"

Public Sub SplitCheckboxResponses()
    Dim wb As Workbook
    Dim wsSource As Worksheet
    Dim wsOutput As Worksheet
    Dim sourceData As Variant
    Dim outputData() As Variant
    Dim choices As Variant
    Dim choiceValue As String
    Dim lastRow As Long
    Dim lastCol As Long
    Dim choiceCol As Long
    Dim sourceRow As Long
    Dim outputRow As Long
    Dim outputRowCount As Long
    Dim choiceIndex As Long
    Dim colIndex As Long
    Dim previousCalculation As XlCalculation
    Dim previousScreenUpdating As Boolean
    Dim previousEnableEvents As Boolean
    Dim settingsCaptured As Boolean
    Dim successMessage As String
    Dim errorMessage As String

    On Error GoTo HandleError

    Set wb = ThisWorkbook
    previousCalculation = Application.Calculation
    previousScreenUpdating = Application.ScreenUpdating
    previousEnableEvents = Application.EnableEvents
    settingsCaptured = True

    If StrComp(SOURCE_SHEET, OUTPUT_SHEET, vbTextCompare) = 0 Then
        Err.Raise vbObjectError + 1000, , _
            "來源工作表與輸出工作表不可同名。"
    End If

    Set wsSource = GetRequiredWorksheet(wb, SOURCE_SHEET)
    lastRow = LastUsedRow(wsSource)
    lastCol = LastUsedColumn(wsSource)

    If lastRow < 2 Or lastCol < 1 Then
        Err.Raise vbObjectError + 1001, , _
            "來源工作表沒有標題及至少一列資料。"
    End If

    choiceCol = FindUniqueHeaderColumn(wsSource, CHOICE_HEADER, lastCol)
    sourceData = wsSource.Range( _
        wsSource.Cells(1, 1), _
        wsSource.Cells(lastRow, lastCol) _
    ).Value2

    ' 第一遍只驗證及計算輸出列數，不修改任何工作表。
    outputRowCount = 1

    For sourceRow = 2 To UBound(sourceData, 1)
        If IsError(sourceData(sourceRow, choiceCol)) Then
            Err.Raise vbObjectError + 1002, , _
                "來源第 " & sourceRow & " 列的「" & CHOICE_HEADER & _
                "」是 Excel 錯誤值，請先修正。"
        End If

        choices = SplitChoices(CStr(sourceData(sourceRow, choiceCol)))

        For choiceIndex = LBound(choices) To UBound(choices)
            choiceValue = CleanChoice(CStr(choices(choiceIndex)))
            If Len(choiceValue) > 0 Then
                If outputRowCount = wsSource.Rows.Count Then
                    Err.Raise vbObjectError + 1004, , _
                        "拆分結果超過此 Excel 工作表的列數上限。"
                End If
                outputRowCount = outputRowCount + 1
            End If
        Next choiceIndex
    Next sourceRow

    If outputRowCount = 1 Then
        Err.Raise vbObjectError + 1003, , _
            "找不到任何非空白的複選答案，輸出工作表未被修改。"
    End If

    If outputRowCount > wsSource.Rows.Count Then
        Err.Raise vbObjectError + 1004, , _
            "拆分後需要 " & outputRowCount & _
            " 列，超過此 Excel 工作表的列數上限。"
    End If

    ReDim outputData(1 To outputRowCount, 1 To lastCol)

    For colIndex = 1 To lastCol
        outputData(1, colIndex) = SafeOutputValue(sourceData(1, colIndex))
    Next colIndex

    ' 第二遍建立輸出陣列：每個非空白選項各佔一列。
    outputRow = 1

    For sourceRow = 2 To UBound(sourceData, 1)
        choices = SplitChoices(CStr(sourceData(sourceRow, choiceCol)))

        For choiceIndex = LBound(choices) To UBound(choices)
            choiceValue = CleanChoice(CStr(choices(choiceIndex)))

            If Len(choiceValue) > 0 Then
                outputRow = outputRow + 1

                For colIndex = 1 To lastCol
                    outputData(outputRow, colIndex) = _
                        SafeOutputValue(sourceData(sourceRow, colIndex))
                Next colIndex

                outputData(outputRow, choiceCol) = SafeOutputValue(choiceValue)
            End If
        Next choiceIndex
    Next sourceRow

    ' 到這裏所有輸入已通過驗證，才建立或清空輸出工作表。
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual

    Set wsOutput = GetOrCreateOutputWorksheet(wb, wsSource, OUTPUT_SHEET)
    If wsOutput.AutoFilterMode Then wsOutput.AutoFilterMode = False
    wsOutput.Cells.Clear

    With wsOutput.Range( _
        wsOutput.Cells(1, 1), _
        wsOutput.Cells(outputRowCount, lastCol) _
    )
        .Value2 = outputData
        .AutoFilter
    End With

    wsOutput.Rows(1).Font.Bold = True

    For colIndex = 1 To lastCol
        wsOutput.Columns(colIndex).NumberFormat = _
            wsSource.Cells(2, colIndex).NumberFormat
        wsOutput.Columns(colIndex).AutoFit
        If wsOutput.Columns(colIndex).ColumnWidth > 50 Then
            wsOutput.Columns(colIndex).ColumnWidth = 50
        End If
    Next colIndex

    successMessage = _
        "完成：讀取 " & (lastRow - 1) & " 個來源列，輸出 " & _
        (outputRowCount - 1) & " 個『填表者 × 選項』資料列。" & vbCrLf & _
        "來源工作表沒有被修改。請立即按驗收清單抽查。"

CleanExit:
    On Error Resume Next
    If settingsCaptured Then
        Application.Calculation = previousCalculation
        Application.EnableEvents = previousEnableEvents
        Application.ScreenUpdating = previousScreenUpdating
    End If
    On Error GoTo 0

    If Len(errorMessage) > 0 Then
        MsgBox errorMessage, vbCritical, "拆分未完成"
    ElseIf Len(successMessage) > 0 Then
        MsgBox successMessage, vbInformation, "拆分完成"
    End If

    Exit Sub

HandleError:
    errorMessage = _
        "錯誤 " & Err.Number & ": " & Err.Description & vbCrLf & _
        "來源工作表不應被修改；請核對工作表名、欄名及測試資料。"
    Resume CleanExit
End Sub

Private Function GetRequiredWorksheet( _
    ByVal wb As Workbook, _
    ByVal sheetName As String _
) As Worksheet
    On Error Resume Next
    Set GetRequiredWorksheet = wb.Worksheets(sheetName)
    On Error GoTo 0

    If GetRequiredWorksheet Is Nothing Then
        Err.Raise vbObjectError + 1010, , _
            "找不到來源工作表「" & sheetName & "」。"
    End If
End Function

Private Function GetOrCreateOutputWorksheet( _
    ByVal wb As Workbook, _
    ByVal wsSource As Worksheet, _
    ByVal sheetName As String _
) As Worksheet
    On Error Resume Next
    Set GetOrCreateOutputWorksheet = wb.Worksheets(sheetName)
    On Error GoTo 0

    If GetOrCreateOutputWorksheet Is Nothing Then
        Set GetOrCreateOutputWorksheet = _
            wb.Worksheets.Add(After:=wsSource)
        GetOrCreateOutputWorksheet.Name = sheetName
    End If
End Function

Private Function FindUniqueHeaderColumn( _
    ByVal ws As Worksheet, _
    ByVal expectedHeader As String, _
    ByVal lastCol As Long _
) As Long
    Dim colIndex As Long
    Dim foundColumn As Long
    Dim headerValue As String

    For colIndex = 1 To lastCol
        If Not IsError(ws.Cells(1, colIndex).Value2) Then
            headerValue = CleanChoice(CStr(ws.Cells(1, colIndex).Value2))

            If StrComp(headerValue, expectedHeader, vbTextCompare) = 0 Then
                If foundColumn > 0 Then
                    Err.Raise vbObjectError + 1011, , _
                        "標題「" & expectedHeader & _
                        "」出現多於一次，請先改成唯一欄名。"
                End If
                foundColumn = colIndex
            End If
        End If
    Next colIndex

    If foundColumn = 0 Then
        Err.Raise vbObjectError + 1012, , _
            "第一列找不到標題「" & expectedHeader & "」。"
    End If

    FindUniqueHeaderColumn = foundColumn
End Function

Private Function LastUsedRow(ByVal ws As Worksheet) As Long
    Dim lastCell As Range

    Set lastCell = ws.Cells.Find( _
        What:="*", _
        After:=ws.Cells(1, 1), _
        LookIn:=xlFormulas, _
        LookAt:=xlPart, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlPrevious, _
        MatchCase:=False, _
        SearchFormat:=False _
    )

    If lastCell Is Nothing Then
        LastUsedRow = 0
    Else
        LastUsedRow = lastCell.Row
    End If
End Function

Private Function LastUsedColumn(ByVal ws As Worksheet) As Long
    Dim lastCell As Range

    Set lastCell = ws.Cells.Find( _
        What:="*", _
        After:=ws.Cells(1, 1), _
        LookIn:=xlFormulas, _
        LookAt:=xlPart, _
        SearchOrder:=xlByColumns, _
        SearchDirection:=xlPrevious, _
        MatchCase:=False, _
        SearchFormat:=False _
    )

    If lastCell Is Nothing Then
        LastUsedColumn = 0
    Else
        LastUsedColumn = lastCell.Column
    End If
End Function

Private Function SplitChoices(ByVal value As String) As Variant
    value = Replace(value, vbCrLf, ",")
    value = Replace(value, vbCr, ",")
    value = Replace(value, vbLf, ",")
    value = Replace(value, "，", ",")
    value = Replace(value, ";", ",")
    value = Replace(value, "；", ",")

    SplitChoices = Split(value, ",")
End Function

Private Function CleanChoice(ByVal value As String) As String
    value = Replace(value, ChrW(160), " ")
    value = Replace(value, ChrW(12288), " ")
    value = Replace(value, vbTab, " ")
    CleanChoice = Trim$(value)
End Function

Private Function SafeOutputValue(ByVal value As Variant) As Variant
    Dim firstCharacter As String

    If VarType(value) = vbString Then
        If Len(value) > 0 Then
            firstCharacter = Left$(CStr(value), 1)

            Select Case firstCharacter
                Case "=", "+", "-", "@"
                    SafeOutputValue = "'" & CStr(value)
                Case Else
                    SafeOutputValue = value
            End Select
        Else
            SafeOutputValue = value
        End If
    Else
        SafeOutputValue = value
    End If
End Function

這段程式實際做了甚麼？

巨集輸出的是值，不是來源公式；這可避免把外部連結或運算邏輯複製到新表。程式亦沿用來源第二列的欄位格式，以便時間戳記和日期正常顯示。若同一欄混合多種格式，應在驗收後統一格式。

步驟六：貼入標準 Module，再編譯

如果你未用過 VBE，可先看 ChatGPT 寫 Excel VBA 入門了解 Module、.xlsm、Alt+F8 和安全警告。這裏只列本案例必需步驟：

1. 用 Excel 桌面版開啟測試 .xlsm。
2. Windows 可按 Alt+F11；或由 Developer／開發人員 → Visual Basic 開啟 VBE。
3. 在左側選中測試檔的 VBAProject，不是 Personal.xlsb 或另一個活頁簿。
4. 選 Insert → Module，建立標準 Module。
5. 把上方程式由 Option Explicit 到最後一個 End Function 完整貼入。
6. 選 Debug → Compile VBAProject；有錯誤便先記下訊息和反白行。
7. 儲存、關閉並重開 .xlsm，確認程式仍在。

Excel 網頁版不能執行 VBA。Microsoft 的官方說明指出，網頁版不能建立、執行或編輯 VBA；必須在桌面應用程式操作。

步驟七：先看來源不動，再執行巨集

1. 確認目前檔案是 TEST .xlsm，不是原始備份。
2. 確認來源頁籤叫「表單回應」，第一列只有一個「報名課程」。
3. 記錄來源資料列數，並抽查三個複選儲存格。
4. 由 Developer → Macros，或 Windows 按 Alt+F8。
5. 選 SplitCheckboxResponses，按 Run／執行。
6. 等待完成訊息；資料量大時不要連續重按。

步驟八：逐項驗收「輸出」工作表

完成訊息中的來源列數和輸出列數只是第一層檢查。正式使用前要完成以下驗收：

1. 來源不變：來源資料列數、三個抽樣儲存格和工作表修改時間符合預期。
2. 總數相等：人工計算小樣本內所有非空白選項總數，應等於輸出資料列數。
3. 一格一項：輸出「報名課程」不再含預期分隔符，也沒有前後空白。
4. 欄位重複正確：同一來源列拆出的姓名、電郵、電話和時間戳記完全相同。
5. 空白不輸出：沒有選項的來源列不應產生一列空白課程。
6. 混合符號：逗號、全形逗號、兩種分號和換行的測試列都正確。
7. 重跑一致：再執行一次，輸出列數和內容不應倍增。
8. 負面測試：把標題暫時改錯或複製一個同名標題，程式應停止並保留舊輸出。

若資料會重複匯出，建議保留穩定的提交 ID；沒有 ID 時可暫用時間戳記加電郵作抽查鍵，但不要假設這個組合永遠唯一。本文故意不自動去重，因為同名、同電郵或同一人多次提交是否應合併，是業務規則，不應由程式自行猜測。

巨集安全：不要為了執行而「啟用所有巨集」

Microsoft 的巨集安全指引明確不建議 Enable all macros。從互聯網或即時通訊下載的 Office 檔案，在 Windows 亦可能按政策被封鎖；應由 IT 或檔案擁有人處理信任和簽署，而不是關掉全域保護。

審查 AI 生成程式時，至少搜尋 Kill、Shell、FileSystemObject、HTTP、Outlook、Workbook_Open、ActiveSheet、Selection。本文範例不需要刪檔、外連、寄信、自動啟動或依賴當前焦點。

私隱：寫 VBA 不需要把真實表格交給 ChatGPT

「只在 Excel 執行」只適用於本文 VBA 本身；如果你把完整回應表貼入或上載 ChatGPT，資料已離開本機工作簿。個人 ChatGPT 工作區的內容是否用於模型改進，取決於帳戶的 Data Controls；可查閱 OpenAI 最新的Data Controls FAQ。OpenAI 的ChatGPT Business 私隱說明指出工作區資料預設不作模型訓練，但公司批准、存取權、保留期和 PDPO 責任仍需獨立處理。

香港私隱公署的僱員使用生成式 AI 指引清單建議機構制定使用範圍、可輸入資料、輸出核實、資料保留、事故回報和培訓安排。實務上應：

• 只提供欄名、資料類型、分隔規則和虛構樣本。
• 以「測試姓名 001」「test001@example.invalid」「9000 0001」取代真實資料。
• 不要把身份證號碼、電話、健康、付款、登入或內部評語放入提示。
• 先確認 Google 表單、連結試算表、下載檔和輸出檔各自的存取權。
• 按用途設定保留期限；完成名單後，不要無限期保留多份本機副本。
• 由資料負責人覆核輸出，而不是把 AI 回覆視為最終決定。

機構若要把這類流程擴展到正式營運，可再按私隱公署的AI 個人資料保障模範框架建立管治、風險評估、人為監督和持續監察安排。

需要更完整的香港情境做法，可參考 ChatGPT 私隱與資料安全指南。

不用 VBA：Power Query、TEXTSPLIT 與 Office Scripts 比較

Power Query 的等效步驟

1. 把來源範圍轉成 Excel Table，保留原始表不改。
2. Data → From Table/Range 開啟 Power Query。
3. 如有全形逗號、分號或換行，先用 Replace Values 統一為單一分隔符。
4. 選「報名課程」→ Split Column → By Delimiter。
5. 在 Advanced options 選 Split into Rows，不是 Columns。
6. Transform → Format → Trim，再篩走空白。
7. Close & Load 到新工作表，刷新後核對列數和抽樣。

可參考 Microsoft 的Power Query 拆欄說明。如果團隊不允許巨集、但需要每週刷新同一份表，Power Query 往往是更容易交接的選擇。

常見錯誤與精確修正

向 ChatGPT 回報錯誤時，只提供錯誤編號、完整訊息、VBE 反白行、虛構欄位結構、預期結果和實際結果。不要因為除錯而上載整份正式名單。

交付正式名單前的最後檢查

• 原始 Google 回應、RAW 下載檔和 TEST .xlsm 分開保存，沒有覆蓋唯一來源。
• 來源與輸出工作表名稱固定，欄名有版本控制。
• 測試包含半形／全形逗號、兩種分號、換行、空白、錯誤值和答案內分隔符。
• 總選項數等於輸出資料列數，並完成至少 10 個來源列的逐項抽查。
• 第二次執行結果一致，沒有在舊輸出底部追加。
• 沒有未批准的刪檔、外連、寄信、Shell、自動開啟或 ActiveSheet 行為。
• 輸出接收者、分享方式和保留期限已批准；不再需要的測試副本已按政策處理。
• 若新回應仍持續進入 Google Sheet，已清楚標示本次匯出的截止時間。

下一步：由一次拆分升級成可維護流程

這個案例的真正價值不只是「ChatGPT 幫你寫 VBA」，而是把模糊需求變成可測試規格：固定來源、固定輸出、清楚分隔規則、錯誤時停止、重跑不累積、完成後可驗算。相同方法可延伸到活動時段、技能標籤、服務地區或多選問卷，但每次都要先確認分隔符和業務去重規則。

若你想理解 ChatGPT 在 Excel 的公式、分析、圖表和報告用途，可閱讀 ChatGPT Excel 香港工作指南；要把多個重複辦公步驟串成流程，可再看 香港中小企 AI 自動化指南和 香港工作提示詞實例。