Excel(二)之批量創建工作簿及多表合併

原創

皖渝

2020-06-22 17:39

還在用ctrl+c和ctrl+v來搬運數據麼？本文分享了excel中五個常用的批量操作技巧，分分鐘提高工作效率。

批量創建工作簿

案例一：批量創建如下名稱的工作簿

步驟一：選中全部——插入數據透視表——將表名放入"篩選中"

步驟二：數據透視表工具"分析"——選項——顯示報表篩選頁

步驟三：右鍵工作簿——選中全部工作表——將表頭刪除即可

批量修改工作簿名

案例二：批量修改如員工信息表修改爲職員信息表
步驟一：將案例一生成的文件(工作簿1.xlsx)保存，修改其文件後綴爲rar

步驟二：打開xl文件——將workbook.xml文件複製到桌面——以記事本方式打開

步驟三：快捷鍵ctrl+H 調出"查找-替換"工作欄。查找內容填入員工，替換內容填入職員，全部替換，保存文件。重新替換原workbook.xml文件

步驟四：修改文件後綴爲xlsx，並打開查看

多表合併

案例三：合併多個地區的數據分析崗位招聘信息(EXCEL 2016版)
由於需要使用Power Query功能，低版本需要自行下載插件

步驟一：數據——新建查詢——從文件——從工作簿

步驟二：導入數據後，選擇多項——轉換數據

步驟三：追加查詢——將查詢追加爲新查詢——三個或更多表

步驟四：修改表名，關閉並上載至

步驟五：僅創建錶鏈接——右鍵"合併數據"——加載到——表
合併完成：

多表拆分

案例四：將如下招聘信息表按照地區進行拆分

步驟：開發工具——Visual Basic——插入——模塊
VBA代碼如下：

Sub 多表拆分()

    Dim i, iRow, iCol, t, iNum As Integer, sh As Worksheet, str As String

    Application.ScreenUpdating = False

    With Worksheets("Sheet1")    ##sheet1爲工作簿名

     iRow = .Range("A4869").End(xlUp).Row  #數字只要大於數據表的行數即可

     iCol = .Range("IV1").End(xlToLeft).Column  #工作表的行數若從2開始，則修改爲"IV2"

     t = 2   ##拆分列

        For i = 2 To iRow  #從第二行開始拆分

            str = .Cells(i, t).Value  #獲取單元格(i,t)的值作爲工作簿名

            On Error Resume Next

            Set sh = Worksheets(str) #創建工作簿

            If Err.Number <> 0 Then  #若不存在這個工作表，則添加一個命名

                Set sh = Worksheets.Add(, Worksheets(Worksheets.Count))

                sh.Name = str

            End If

           

            sh.Range("A1").Resize(1, iCol).Value = .Range("A1").Resize(1, iCol).Value   #獲取工作表標題

            iNum = sh.Range("A" & Rows.Count).End(xlUp).Row

            sh.Range("A" & iNum + 1).Resize(1, iCol).Value = .Range("A" & i).Resize(1, iCol).Value  #新表中粘貼數據

            Next i

     End With

Application.ScreenUpdating = True

End Sub

拆分結果如下：

多文件合併

案例五：合併如下五個城市的招聘信息xlsx文件

步驟一：數據——新建查詢——從文件——從文件夾——轉換數據

步驟二：選中Content列——刪除其他列

步驟三：添加列——自定義列——自定義公式輸入=Excel.Workbook([Content],true)(大小寫不能錯)

步驟四：點擊自定義旁邊的<>按鈕——勾選"Data"，並取消勾選"使用原始列名作爲前綴"

步驟五：再次點擊<>按鈕，取消勾選"使用原始列名作爲前綴"，刪除Content列，關閉並上傳

合併結果如下：