WPS如何實現(xiàn)多個表格數(shù)據(jù)統(tǒng)一合并操作教學(xué)分享 。我們在操作WPS文件的時候，有的時候建立了多個表格文件，后續(xù)想要將這些文件進行統(tǒng)一合并到同一個表格中，那么這個操作如何實現(xiàn)，一起看看具體的操作方法吧 。
用microsoft excel打開新建的excel表，并右鍵單擊sheet1，找到“查看代碼”，單擊進去 。進去之后就看到了宏計算界面 。如圖所示：
然后我們把下面這些宏計算的代碼復(fù)制進去，然后找到工具欄上面的“運行”下的“運行子過程/用戶窗體”，代碼如下，如圖所示：
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 = Num1
【W(wǎng)PS如何實現(xiàn)多個表格數(shù)據(jù)統(tǒng)一合并操作教學(xué)】With Workbooks（1）.ActiveSheet
.Cells（.Range（“B65536”）.End（xlUp）.Row2， 1） = Left（MyName， Len（MyName） – 4）
For G = 1 To Sheets.Count
Wb.Sheets（G）.UsedRange.Copy .Cells（.Range（“B65536”）.End（xlUp）.Row1， 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 。
運行之后，等待10秒針左右，等運行完畢，就是合并完成之后，會有提示，點確定就可以了 。查看合并后的數(shù)據(jù)，有5000多行，就是同一個文件夾里面17個excel表數(shù)據(jù)合并后的結(jié)果 。效果如圖所示 。
推薦閱讀
- 華為暢享10s如何關(guān)掉應(yīng)用懸浮窗
- 如何消滅果蠅小飛蟲
- OPPOReno3如何修改桌面圖標(biāo)大小
- 社保如何轉(zhuǎn)移到其他城市
- 春季如何保養(yǎng)皮膚
- WPS文件中如何添加頁碼樣式的操作方法教學(xué)分享
- OPPOReno3如何隱藏應(yīng)用
- WPS軟件怎么進行打印預(yù)覽具體操作方法分享
- 如何起訴對方還錢
- 華為暢享10s如何調(diào)節(jié)虛擬按鍵