自動按列分組拆分excel工作表

1、自動按列分組拆分excel工作表可以將一個(gè)excel工作表按照指定列分組拆分成多個(gè)工作表，甚至可以將已經(jīng)拆分的多個(gè)工作表再次拆分成單獨(dú)的excel文件。略懂一些編程語言的可以將代碼改編，以達(dá)到批量拆分多個(gè)工作表，或者批量合并多個(gè)excel文件、工作表，有了vbs的支持，只要你想的到就能做的到！拷貝代碼時(shí)請注意自動換行格式。自動拆分工作表自動創(chuàng)建文件夾自動保存單獨(dú)的excel文件至文件夾自動過濾空行，如果存在大量集中的空行請盡量刪除空行，

2、因?yàn)榇罅靠招袝绊戇\(yùn)行效率使用方法：打開待拆分的excel文檔，按ALTF11進(jìn)入vba模式，鼠標(biāo)選【插入】【模塊】，在右側(cè)新建的模塊內(nèi)將準(zhǔn)備好的代碼粘貼進(jìn)去，然后按F5，直接運(yùn)行。此時(shí)會讓你選擇標(biāo)題行和待分組的列標(biāo)題。DimShNameAsStringDimcolumnNumAsIntegermyRange=Application.InputBox(prompt:=“請選擇標(biāo)題行：“Type:=8)myArray=WksheetFun

3、ction.Transpose(myRange)SettitleRange=Application.InputBox(prompt:=“請選擇拆分的表頭，必須是第一行，且為一個(gè)單元格，如：姓名“Type:=8)title=titleRange.ValuecolumnNum=titleRange.ColumnApplication.VolatileShName=ActiveSheet.NameApplication.ScreenUpdat

4、ing=FalseApplication.DisplayAlerts=FalseDimiextendedproperties=excel8.0datasource=“&ThisWkbook.FullNameSql=“from[“&ShName&“$]where“&title&“=“&k(i)&““Wksheets.Addafter:=Sheets(Sheets.Count)WithActiveSheet.Name=k(i)Fnum=1T