想要讓不同工作表間能夠連動（匯入總表）

你好，張書櫃

您可以使用此代碼來分佈總表中的資料：

Sub DistributeTasks()

    Dim summaryWs As Worksheet

    Dim ws As Worksheet

    Dim lastRow As Long

    Dim i As Long

    Dim targetWs As Worksheet

    Dim targetRow As Long

    Set summaryWs = ThisWorkbook.Sheets("總表")

    lastRow = summaryWs.Cells(Rows.Count, 1).End(xlUp).Row

    For Each ws In ThisWorkbook.Worksheets

        If ws.Name <> "總表" Then

            ws.Range("A1:B" & ws.Cells(Rows.Count, 1).End(xlUp).Row).ClearContents

        End If

    Next ws

    For i = 1 To lastRow

        On Error Resume Next

        Set targetWs = ThisWorkbook.Sheets(summaryWs.Cells(i, 1).Value)

        On Error GoTo 0

        If Not targetWs Is Nothing Then

            targetRow = targetWs.Cells(Rows.Count, 1).End(xlUp).Row + 1

            targetWs.Cells(targetRow, 1).Value = targetRow

            targetWs.Cells(targetRow, 2).Value = summaryWs.Cells(i, 2).Value

        End If

    Next i

End Sub

在總表中輸入內容，然後執行。

希望以上資訊能幫到您。如果您需要進一步幫助，請隨時發送消息。

最美好的祝願

Aiden.C - MSFT |Microsoft社群支援專家

你好，張書櫃

歡迎來到微軟社區。

您可以使用 VBA 來解決自動總結不同工作表之間的資料，並按時間順序排列的問題，以下是我根據您的描述所做的步驟，如有錯誤，請指出：

步驟 1: 建立工作表

1. 建立工作表
   • 打開 Excel，新建一個工作簿。
   • 建立三個工作表，分別命名為「總表」、「客戶1」和「客戶2」。

步驟 2: 輸入數據

1. 在「客戶1」工作表中輸入數據
   • 在 A1 輸入：「聯絡某某客戶」
   • 在 A2 輸入：「繳費給某某」
2. 在「客戶2」工作表中輸入數據
   • 在 A1 輸入：「寄信給某人」

步驟 3: 設置 VBA 宏

1. 打開 VBA 編輯器
   • 按下 Alt + F11 打開 VBA 編輯器。
2. 插入新模組
   • 在 VBA 編輯器中，點擊 Insert > Module。
3. 輸入以下代碼： Sub UpdateSummary()     Dim ws As Worksheet     Dim summaryWs As Worksheet     Dim lastRow As Long     Dim summaryRow As Long     Dim i As Long     ' 設置總表工作表     Set summaryWs = ThisWorkbook.Sheets("總表")     summaryRow = 2 ' 總表中數據開始的行     ' 清除總表中的現有數據     summaryWs.Range("A2:E" & summaryWs.Cells(Rows.Count, 1).End(xlUp).Row).ClearContents     ' 遍歷每個工作表     For Each ws In ThisWorkbook.Worksheets         If ws.Name <> "總表" Then             ' 找到當前工作表中有數據的最後一行             lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row             ' 複製數據到總表             For i = 1 To lastRow                 summaryWs.Cells(summaryRow, 1).Value = ws.Name                 summaryWs.Cells(summaryRow, 2).Value = ws.Cells(i, 1).Value                 summaryRow = summaryRow + 1             Next i         End If     Next ws End Sub
4. 保存並關閉 VBA 編輯器
   • 點擊 File > Close and Return to Microsoft Excel。

步驟 4: 執行宏

1. 執行宏
   • 按 Alt + F8，選擇 UpdateSummary，然後點擊 Run。

檢查結果

• 打開「總表」工作表，你應該會看到如下數據：

注意事項

• 每次在「客戶1」和「客戶2」中更新數據後，需重新執行宏以更新「總表」。
• 確保每個工作表的名稱正確，以便宏能正確識別。

希望以上資訊能幫到您。如果您需要進一步幫助，請隨時發送消息。

最美好的祝願

Aiden.C - MSFT |Microsoft社群支援專家