程式碼如下：用到陣列寫入，速度快。先將單元格區域寫入陣列，再匯出到每個新建的表格。Sub d() arr = ActiveSheet.Range("b1:u" & ActiveSheet.[b65536].End(3).Row) For a = 2 To UBound(arr, 2) Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = a - 1 Worksheets(Worksheets.Count).Range("d1").Resize(UBound(arr, 1), 1) = WorksheetFunction.Index(arr, 0, a) Next End Sub 有個index函式的用法，用於獲得二維陣列其中的一維。不會的話直接問我，不嫌麻煩(ง •̀_•́)ง

這個看著很簡單，其實很麻煩，要想到各種不同情況，要保證一行全部輸入完成，才錄入分表，如修改資料，又得找到分表已錄入資料，可能還得新增輔助列。但是如果新增輸入列，那就不用陣列公式了，直接用普通公式，也可以做到，不測試，很難做選擇。