1.首先要有自己的excel資料，並且我們需要的是microsoft excel，WPS沒有這些負責的功能。比如下面舉例的，有205頁的資料需要合併，如圖所示。
2.看到這麼多資料頁要合併，如果是複製貼上的話，工作量就很大了。現在開始合併，首先要在最前頁新建一個工作表。如圖：
3.在新建的sheet表中“右鍵”，找到“檢視程式碼”，然後看到宏計算介面。如圖所示：
4.看到宏計算介面，我們就只需要把下面的程式碼複製進去，程式碼如下，效果如下：Sub 合併當前工作簿下的所有工作表()Application.ScreenUpdating = FalseFor 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 IfNextRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "當前工作簿下的全部工作表已經合併完畢！", vbInformation, "提示"End Sub5.做完上面的事情，然後只需要點選工具欄上面的“執行”下的“執行子過程/使用者窗體”就可以了，合併完之後會有提示。提示完成之後就可以把宏計算介面關閉了。如圖所示：6.合併後的效果如下圖，看到的是合併之後有8000多行，就是205頁合併後的結果。謝
1.首先要有自己的excel資料，並且我們需要的是microsoft excel，WPS沒有這些負責的功能。比如下面舉例的，有205頁的資料需要合併，如圖所示。
2.看到這麼多資料頁要合併，如果是複製貼上的話，工作量就很大了。現在開始合併，首先要在最前頁新建一個工作表。如圖：
3.在新建的sheet表中“右鍵”，找到“檢視程式碼”，然後看到宏計算介面。如圖所示：
4.看到宏計算介面，我們就只需要把下面的程式碼複製進去，程式碼如下，效果如下：Sub 合併當前工作簿下的所有工作表()Application.ScreenUpdating = FalseFor 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 IfNextRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "當前工作簿下的全部工作表已經合併完畢！", vbInformation, "提示"End Sub5.做完上面的事情，然後只需要點選工具欄上面的“執行”下的“執行子過程/使用者窗體”就可以了，合併完之後會有提示。提示完成之後就可以把宏計算介面關閉了。如圖所示：6.合併後的效果如下圖，看到的是合併之後有8000多行，就是205頁合併後的結果。謝