EXCEL一列數(shù)據(jù)分成多個表數(shù)據(jù)的解決方法

1、EXCEL中有一列數(shù)據(jù)，數(shù)目很多，將數(shù)據(jù)根據(jù)需要拆分成無數(shù)個表，比如40000條電話 號碼，需要分給50個銷售人員，以excel2015版為例，其他版本類似一、啟用宏如果 excel 打開之后直接在菜單欄里有開發(fā)工具或者宏選項，即可不用尋找， 如果沒有這些選項需要手動添加，添加步驟為：1、1、2、點完文件會彈出下圖,2、點完文件會彈出下圖,點選項插入文件-%屍萸切霑冥制T 粘貼口B Ik贈格式顯蓉貼板丘C97信息檢査工作逼在發(fā)布此文件之前,謹(jǐn) 殘漳人士難毆閱讀廿 糅存左件時r信息檢査工作逼在發(fā)布此文件之前,謹(jǐn) 殘漳人士難毆閱讀廿 糅存左件時r將目亍 俎鏘此信息版本旳攏不到此文件的上-信息功能表

2、及報價單車面鹽工作籠控制mx可則ntif打印共享 導(dǎo)出 關(guān)闔3、 點完選項會彈出下圖，選擇自定義功能區(qū)，開發(fā)工具選中挑勾，確定即可glii項第夕豈咻區(qū):冷用命爭E走殳5麗區(qū)世： 主園卡主 3JS-E 出巨）陸0回?6人址式校討B(tài)5咼科心恢逵詢可工真左臥下列45遠(yuǎn)辟今（Q：-丁邊第夕豈咻區(qū):冷用命爭E走殳5麗區(qū)世： 主園卡主 3JS-E 出巨）陸0回?6人址式校討B(tài)5咼科心恢逵詢可工真左臥下列45遠(yuǎn)辟今（Q：-丁邊f(xié)i環(huán)V磁工冷亍打丹ISR!ffw-e 閔野7印 連醫(yī)5、會彈出代碼框Sis - ShertiJshvvtl NwlaLn t|Shi+tLDbpl歸F*g40r* F-J.SNI D

3、i ipL 斗Fii |ht-3 F tlu ftebLotiFilt F-J.se I icT J fi il wF r- 4、 確定之后再看 excel 界面出現(xiàn)下圖，看到了開發(fā)工具，點擊查看代碼ESSffiL宜 闊覷麗引用也 rdicrtrjo- !$( for ApplitzrtioTrs - MlS.JfkK-S TlWroJic 4薊蹈碾B- Ki orasofi: Ise&l 訶, QQ bvi-tL CSbaviL 鬥 Thi sffsrkliwl;、所需代碼Sub aa()Dim i&For i = 1 To 40000 St ep 800Sheets.Add after:=

4、Sheets(Sheets.Count)Sheets(Sheets.Count)Name = iRange(a& i & :iv& i + 499).Copy Sheets(Sheets.Count) alNext iEnd Sub三、代碼修改在運用此代碼時，需要修改代碼中的數(shù)字部分For i = 1 To 40000 St ep 800其中1 to 40000中1代表從1開始，40000既是你所需要拆分的數(shù)據(jù)總數(shù)，Step 800意為拆分后每個表有多少條數(shù)據(jù)，需要多少改多少Range(a& i & :iv& i + 799)具體意思不用明白，799就是每個表中的總數(shù)據(jù)條數(shù)減1，比如1000條那