用VBA來解決是最好辦的，程式碼如下：合併任意的 Sheet合併之前，請先建立一個空白的 Sheet 作為合併目標 Sheet ，這個Sheet 必需是第一個Sheet 哦。如果不合並標題行（比如第一行）則 j=1 改為 j=2如果資料不是從第一行，或者第一列開始的，請修改 j=1 及 k=2 兩行的引數。比如 j=2 k=3 表示從第2行，第三列開始的資料。Sub CombineSheet()Application.screenupdating = FalseDim i, j, k, n As Stringn = 1For i = 2 To ThisWorkbook.Sheets.CountFor j = 1 ToThisWorkbook.Sheets(i).UsedRange.Rows.CountFor k = 1 ToThisWorkbook.Sheets(i).UsedRange.Columns.CountThisWorkbook.Sheets(1).Cells(n, k).Value =ThisWorkbook.Sheets(i).Cells(j, k).ValueNext kn = n + 1Next jNext iApplication.screenupdating = TrueEnd Sub意外驚喜：合併 Sheet 的功能會自動去掉超連結(HREF) 標記。實際上，為了去掉 Excel 的所有超連結，也可以使用這個函式啊。
用VBA來解決是最好辦的，程式碼如下：合併任意的 Sheet合併之前，請先建立一個空白的 Sheet 作為合併目標 Sheet ，這個Sheet 必需是第一個Sheet 哦。如果不合並標題行（比如第一行）則 j=1 改為 j=2如果資料不是從第一行，或者第一列開始的，請修改 j=1 及 k=2 兩行的引數。比如 j=2 k=3 表示從第2行，第三列開始的資料。Sub CombineSheet()Application.screenupdating = FalseDim i, j, k, n As Stringn = 1For i = 2 To ThisWorkbook.Sheets.CountFor j = 1 ToThisWorkbook.Sheets(i).UsedRange.Rows.CountFor k = 1 ToThisWorkbook.Sheets(i).UsedRange.Columns.CountThisWorkbook.Sheets(1).Cells(n, k).Value =ThisWorkbook.Sheets(i).Cells(j, k).ValueNext kn = n + 1Next jNext iApplication.screenupdating = TrueEnd Sub意外驚喜：合併 Sheet 的功能會自動去掉超連結(HREF) 標記。實際上，為了去掉 Excel 的所有超連結，也可以使用這個函式啊。