接下来，右击第一个工作表Sheet1，选择“查看代码”。请注意，Excel具有此功能，但WPS可能没有。将以下代码复制到文本框中。Sub 合并当前目录下所有工作簿的全部工作表()。Dim MyPath.MyName.AWbName。Dim Wb As workbook.WbN As String。Dim G As Long。Dim Num As Long。Dim BOX As String。Application.ScreenUpdating = False。MyPath = ActiveWorkbook.Path。MyName = Dir(MyPath & &quot；&#92；&quot；& &quot；*.xls&quot；)。