一、將數據按供應商拆分為多個字表
新建數據透視表，去除分類匯總，按表格形式布局，然后在選項里選擇顯示報表篩選頁，就可以按篩選條件自動拆分為多個字表
二、子表快速插入同一文字
按以下步驟操作：
1、首先同時選中所有Sheet—— 選擇第1個sheet，按住Shift選最后一個sheet；
2、插入行——選中要插入行的位置，右鍵---插入---整行；
3、取消所有Sheet的選擇——點擊任意Sheet標簽。
三、表格拆分
右鍵點擊任意一個字表名，選擇查看代碼，復制下列代碼，運行就可以拆分了
Private Sub 分拆工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlOpenXMLWorkbook '將工作簿另存為xlsx格式
ActiveWorkbook.Close
Next
MsgBox "文件已經被分拆完畢!"
End Sub