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

《excel一列數(shù)據(jù)分成多個表數(shù)據(jù)的解決方法》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在應(yīng)用文檔-天天文庫。

1、EXCEL中有一列數(shù)據(jù)，數(shù)目很多，將數(shù)據(jù)根據(jù)需要拆分成無數(shù)個表，比如40000條電話號碼，需要分給50個銷售人員，以excel2015版為例，其他版本類似一、啟用宏如果excel打開之后直接在菜單欄里有開發(fā)工具或者宏選項，即可不用尋找，如果沒有這些選項需要手動添加，添加步驟為：1、最左上角的文件點(diǎn)擊2、點(diǎn)完文件會彈出下圖，點(diǎn)選項3、點(diǎn)完選項會彈出下圖，選擇自定義功能區(qū)，開發(fā)工具選中挑勾，確定即可1、確定之后再看excel界面出現(xiàn)下圖，看到了開發(fā)工具，點(diǎn)擊查看代碼5、會彈出代碼框一、所需代碼Sub?aa()Dim?i&For?i?=?1?To?40000?Step?

2、800????Sheets.Add?after:=Sheets(Sheets.Count)????Sheets(Sheets.Count).Name?=?i????Range("a"?&?i?&?":iv"?&?i?+?499).Copy?Sheets(Sheets.Count).[a1]Next?iEnd?Sub二、代碼修改在運(yùn)用此代碼時，需要修改代碼中的數(shù)字部分For?i?=?1?To?40000?Step?800其中1to40000中1代表從1開始，40000既是你所需要拆分的數(shù)據(jù)總數(shù)，Step800意為拆分后每個表有多少條數(shù)據(jù)，需要多少改多少Range("

3、a"?&?i?&?":iv"?&?i?+?799)具體意思不用明白，799就是每個表中的總數(shù)據(jù)條數(shù)減1，比如1000條那這里就是999三、運(yùn)行代碼按F5即可運(yùn)行四、生成根據(jù)數(shù)據(jù)條數(shù)會有短暫的計算和處理，處理完之后文件會根據(jù)設(shè)定變成你想要的文檔