辦公技能-使用ExcelVBA代碼實現(xiàn)表格拆分功能-嘉為科技

辦公技能-使用ExcelVBA代碼實現(xiàn)表格拆分功能--嘉為科技釋放辦公激情，效能觸手可及釋放辦公激情，效能觸手可及嘉為IT咨詢培訓(xùn)培訓(xùn)使用ExcelVBA代碼實現(xiàn)表格拆分功能作者：張辛【摘要】因為工作需要，我們經(jīng)常希望能把一些表格按照某個分類進行拆分，按照正常做法應(yīng)該是：先按分類項篩選，然后新建工作表，接著將篩選結(jié)果復(fù)制到新工作表上，隨后再修改工作表標簽名稱，最后依次重復(fù)這項工作，直到把分類項中每一個選項都復(fù)制一遍，這份工作表才算拆分完畢。這種重復(fù)性工作太耗費時間，有沒有辦法能幫我們快速完成這種體力活呢？【正文】如果使用ExcelVBA宏代碼幫我們判斷并拆分，則大大減輕工作量。下面就給大家介紹一個案例，希望能帶來啟發(fā)。案例描述如下圖所示，有一張銷售訂單表，現(xiàn)在希望按照【產(chǎn)品】進行拆分，將每個城市的數(shù)據(jù)單獨放在一張新工作表上。DimbAsInteger,cAsIntegerb=WorksheetFunction.CountA(Sheets("sheet1").Range("I2:I100"))Sheets("sheet1").Range("k1")=Sheets("sheet1").Range("i1")Forc=1TobSheets("sheet1").Range("k2")=Sheets("sheet1").Range("I"&c+1).ValueSheets.AddAfter:=ActiveSheeta=Sheets("sheet1").Range("k2").ValueActiveSheet.Name=aApplication.CutCopyMode=FalseSheets("Sheet1").Range("A1:G231").AdvancedFilterAction:=xlFilterCopy,_CriteriaRange:=Sheets("Sheet1").Range("K1:K2"),CopyToRange:=Sheets(a).Range("A1"),_Unique:=FalseNextcSheets("sheet1").Range("k1:k2").ClearSheets("sheet1").SelectEndSub應(yīng)用宏代碼完成工作設(shè)置拆分依據(jù)代碼中定義工作表【sheet1】中的I列為拆分依據(jù)，所以要將分類項復(fù)制粘貼到I列。然后使用【數(shù)據(jù)】-【刪除重復(fù)項】命令，將重復(fù)數(shù)據(jù)刪除。運行宏代碼單擊【開發(fā)工具】-【宏】，打開宏編輯對話框，選中“使用高級篩選拆分表格”，單擊【執(zhí)行】即可?！拘√崾尽浚喊?/p>