WPS如何實(shí)現(xiàn)多個(gè)表格數(shù)據(jù)統(tǒng)一合并操作教學(xué)

　　WPS如何實(shí)現(xiàn)多個(gè)表格數(shù)據(jù)統(tǒng)一合并操作教學(xué)分享。我們在操作WPS文件的時(shí)候，有的時(shí)候建立了多個(gè)表格文件，后續(xù)想要將這些文件進(jìn)行統(tǒng)一合并到同一個(gè)表格中，那么這個(gè)操作如何實(shí)現(xiàn)，一起看看具體的操作方法吧。

　　用microsoft excel打開新建的excel表，并右鍵單擊sheet1，找到“查看代碼”，單擊進(jìn)去。進(jìn)去之后就看到了宏計(jì)算界面。如圖所示：

　　然后我們把下面這些宏計(jì)算的代碼復(fù)制進(jìn)去，然后找到工具欄上面的“運(yùn)行”下的“運(yùn)行子過程/用戶窗體”，代碼如下，如圖所示：

　　Sub 合并當(dāng)前目錄下所有工作簿的全部工作表。

　　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 & “個(gè)工作薄下的全部工作表。如下：” & Chr（13） & WbN， vbInformation， “提示”。

　　End Sub。

　　運(yùn)行之后，等待10秒針左右，等運(yùn)行完畢，就是合并完成之后，會有提示，點(diǎn)確定就可以了。查看合并后的數(shù)據(jù)，有5000多行，就是同一個(gè)文件夾里面17個(gè)excel表數(shù)據(jù)合并后的結(jié)果。效果如圖所示。