回覆列表
-
1 # 使用者9130346202023
-
2 # maimi32709
使用WPS2019版的多表合併功能,全程操作簡單,幫你快速完成資料合併。前期製作好模板,保持表格結構一致性,等收集好資料就可以開始了。1、新建一個電子表格,找到“資料”選項卡2、找到合併表格按鈕,可以看到,根據不同情況,WPS都提供瞭解決方案,我們選擇第一個3、選擇你要合併的檔案,點選前面的對號選中4、選中以後,點選開始合併5、點選以後就會顯示成功合併。注意事項1、對於新使用者會提示wps會員7天福利廣告,如果出現這個提示關閉WPS再次開啟檔案後進入,就可以了。2、如果賬號過期要想免費用,可以再註冊個賬號
快速把excel合併在一起,方便分析和統計可以利用excel表的宏計算就可以實現。方法如下:
1、我們需要把多個excel表都放在同一個資料夾裡面,並在這個資料夾裡面新建一個excel。如圖所示:
2、用microsoft excel開啟新建的excel表,並右鍵單擊sheet1,找到“檢視程式碼”,單擊進去。進去之後就看到了宏計算介面。如圖所示:
3、然後我們把下面這些宏計算的程式碼複製進去,然後找到工具欄上面的“執行”下的“執行子過程/使用者窗體”,程式碼如下,如圖所示: 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 & "" & "*.xls") AWbName = ActiveWorkbook.Name Num = 0 Do While MyName <> "" If MyName <> AWbName Then Set Wb = Workbooks.Open(MyPath & "" & MyName) Num = Num + 1 With Workbooks(1).ActiveSheet .Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) For G = 1 To Sheets.Count Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1) Next WbN = WbN & Chr(13) & Wb.Name Wb.Close False End With End If MyName = Dir Loop Range("B1").Select Application.ScreenUpdating = True MsgBox "共合併了" & Num & "個工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示" End Sub
4、執行之後,等待10秒針左右,等執行完畢,就是合併完成之後,會有提示,點確定就可以了。
5、檢視合併後的資料,有5000多行,就是同一個資料夾裡面17個excel表資料合併後的結果。效果如圖所示。