因為自己用的使英文版excel，最後是用了下面的程式碼成功的

開啟需要合併的excel，新建sheet，滑鼠移動到在新建sheet工作表上單擊右鍵，選擇“View Code”選項，進入VBA控制檯。

在編輯框中複製以下程式碼，注意符號，需是英文狀態下。

按F5

Sub Title()

Application.ScreenUpdating = False

For j = 1 To Sheets.Count

If Sheets(j).Name <> ActiveSheet.Name Then

X = Range("A65536").End(xlUp).Row + 1

Sheets(j).UsedRange.Copy Cells(X, 1)

End If

Next

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "Done", vbInformation, "Alert"

End Sub