怎么把一个100w行数据的excel拆分成50个、每个2w行数据的excel？ 如何将一个有20000条数据的EXCEL表拆分成多个表，每个...
\u6c42\u5404\u4f4d\u5927\u795e\u89e3\u51b3\u5c06\u4e00\u4e2aexcel\u62c6\u5206\u6210\u591a\u4e2aexcel\u7684\u65b9\u6cd5\u3002\u62c6\u5206\u540e\u6bcf\u4e2aexcel\u91cc\u6709\u5341\u884c\u6570\u636e\u3002\u7ed9\u4f60\u4ee3\u7801\u4f60\u4e0d\u4e00\u5b9a\u61c2\u7528\uff0c\u8fd8\u662f\u628a\u8868\u53d1\u6211\u90ae\u7bb1\u770b\u770b\u5427\u3002
QQ\u90ae\u7bb1 [email protected]
\u5982\u4f55\u5c06\u4e00\u5f20\u5de5\u4f5c\u8868\u62c6\u5206\u6210\u591a\u4e2a\u5de5\u4f5c\u8868\uff1f
亲，这个要用VBA编程才能做到。运行下面的程序后，将在源文件相同的文件夹下生成以数字序号为名称的50个文件。
打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。
代码中的标题行数和每个文件的行数可以自行调整。
Sub cfb()
Dim r, c, i, WJhangshu, WJshu, bt As Long
r = Range("A" & Rows.Count).End(xlUp).Row
c = Cells(1, Columns.Count).End(xlToLeft).Column
bt = 1 '标题行数
WJhangshu = 20000 '每个文件的行数
WJshu = IIf(r - bt Mod 20000, Int((r - bt) / WJhangshu), Int((r - bt) / WJhangshu) + 1)
For i = 1 To WJshu
Workbooks.Add
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Format(i, String(Len(WJshu), 0)) & ".xlsx"
Application.DisplayAlerts = True
ThisWorkbook.ActiveSheet.Range("A1").Resize(bt, c).Copy ActiveSheet.Range("A1")
ThisWorkbook.ActiveSheet.Range("A" & bt + i * WJhangshu + 1).Resize(WJhangshu, c).Copy _
ActiveSheet.Range("A" & bt + 1)
ActiveWorkbook.Close True
Next
End Sub
Sub cfb()
Dim r, c, i, WJhangshu, WJshu, bt As Long
r = Range("A" & Rows.Count).End(xlUp).Row
c = Cells(1, Columns.Count).End(xlToLeft).Column
bt = 1 '标题行数
WJhangshu = 20000 '每个文件的行数
WJshu = IIf(r - bt Mod 20000, Int((r - bt) / WJhangshu), Int((r - bt) / WJhangshu) + 1)
For i = 0 To WJshu
Workbooks.Add
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Format(i, String(Len(WJshu), 0)) & ".xlsx"
Application.DisplayAlerts = True
ThisWorkbook.ActiveSheet.Range("A1").Resize(bt, c).Copy ActiveSheet.Range("A1")
ThisWorkbook.ActiveSheet.Range("A" & bt + i * WJhangshu + 1).Resize(WJhangshu, c).Copy _
ActiveSheet.Range("A" & bt + 1)
ActiveWorkbook.Close True
Next
End Sub
楼上的这个代码，第一个文件未分割出来。特代码更新一下。
这里还有个小问题，就是如果总行数和单个文件行数整除的话，最后会分割出来一个空白文档，求高手更正。
在名称框中输入 A20001：D40000(假设表格就到D列），回车，就选中了20001到40000行数据区域了，右键---复制，就可以粘贴到预定位置了。
再做A40001：D60000的区域就是了。
在空白列选择填充柄，起始为1终止为50，步长1.之后筛选，之后就都编号了 会有2w个1-50的数，再用高级筛选就可以分在不同的sheet里
i应从0开始，第一个2W条数据丢失
绛旓細= null) bulkCopy.Close(); } }闇瑕佷紶鍏涓涓DataTable锛屼竴涓〃鍚嶃傝繖绉嶆柟寮忛熷害闈炲父蹇紝鍚屾牱100W鏉鏁版嵁锛屾湰鏈哄鍏ワ紝澶ф3-5绉掑氨鍙互瀹屾垚锛屼絾鏄渶瑕佹敞鎰忥紝浼犲叆鐨凞ataTable蹇呴』鍜孲ql Server涓殑琛ㄧ粨鏋勪竴妯′竴鏍凤紝姣斿浣犵殑琛ㄦ湁3鍒楋紝鍒嗗埆鏄疦ame, Age, Sex銆 浣犱紶鍏ョ殑DataTable涔熷繀椤绘槸濡傛锛...
绛旓細涓棿鑿滃崟鏍忕涓変釜
绛旓細50绾т互鍚庡彲浠ュ涔EX鎶鑳斤紝TP鐐瑰鏋滃姞閿欎簡锛屽彲浠ュ湪濉炰附浜氶偅鑺100涓囨礂鎺夐噸鍔犮
绛旓細鍏蜂綋鎿嶄綔姝ラ濡備笅锛氬紑灞娲鹃搧琛A闃燂紙杈冨己锛夊拰閾佽B闃燂紙鍕夊己鑳藉簲瀵癸級鍗犳嵁涓涓鏈哄満锛屽悓鏃舵淳鍑1闃熺嫍绮傜涓鍥炲悎鐩爣鏄垽鏂摢涓柟鍚戞洿閫傚悎闀挎湡鍗犻銆傞伩寮100w鍗曚綅鐨勫尯鍩燂紝閫夋嫨鍘嬪姏杈冨皬鐨勪竴渚ц繘琛屽崰棰嗐傚湪甯曟媺杩柉鍥炲悎锛岀‘淇滱闃熷拰B闃熷垎鍒氦鎴樹竴娆★紝鐒跺悗鍦ㄧ浜屽洖鍚堬紝鍒╃敤涓瑰痉鑾辩殑鎶鑳藉崰鎹叾浠栨帶鍒跺彴鏈哄満锛屽悓鏃跺埄...
绛旓細璨屼技鎶よ偐鍔2鏀诲嚮閫熷害鎵浠ヨ吹鐐癸紝100W宸﹀彸锛屽叾浠栭兘鍨冨溇锛岃繖浜涗笢瑗挎垜鍩烘湰鍒嗚В鐨勶紝浣犺鏄ユ敹10W涓涓锛屽ソ鍍忚叞甯︽槸鍥剧焊锛150灏侀《浜嗐傜畻璐典簡锛屾墦鍒版病鐢ㄧ殑绱閮藉垎瑙ｇ殑锛EX鐢ㄥ緱浜哄皯銆
绛旓細ex灞炲己 ex鍛戒腑 ex澶氱垎 ex鐖嗗ご ex鎴嚮鍑犱釜鍔犳弧鍒氬ソ鐢ㄥ畬鎵鏈塼p锛屽彧鑳戒粠杩欓噷鎵ｄ簡锛岃繖浜沞x鎶鑳介噷鏈宸殑灏辨槸ex鎴嚮锛屾墍浠ヤ互鍚巈x鎴嚮鍙兘鍔1.鎵浠ュ鏋滀綘瑙夊緱100W寰堝皯锛圱P娲楃偣姘100W锛屼紒楣呭緢榛戠殑浣犳噦寰楋紝涓嶄繚璇佷粬寮鏂癳x鎶鑳芥椂娲梩p锛夛紝浣犲氨婊″惂锛屽鏋滀綘瑙夊緱100W鏈夌偣璐靛氨鎶妕p鐣欑潃绛塭x涔卞皠鍚с
绛旓細.. 棣栧厛 姝荤杩欐妸鏋 姣旇緝绋鏈 涓噾鐨勫嚑鐜囨瘮杈冧綆 澶ф140RMB F2000 涓嶅拫婊村疄鐢 鍘嬬搴曠殑 涔熷氨60杩欐牱銆EX鍜屾櫘閫 涓濂楃畻涓緵鑻﹁垂 涔熷氨鏄60 姣曠珶鐚庨瓊澶偛鍓т簡 銆...+涓涓涓鎮插墽100W鐨閲戝媼鍜屼竴鎶婃湭鍗囩骇鐨勬灙 绠楄捣鏉ュぇ姒備篃灏320~345杩欐牱鎶 銆 濡傛灉浣犺寰楁垜浼颁环涓嶅噯 鍘绘窐瀹濆弬鑰冧笅鍚 鏈涢噰绾 ...
绛旓細濡傛灉浣犳劅瑙夋湁闂锛屼綘鍙互涔颁釜TP鍒濆涔︼紝100W锛屾瘮璧锋礂鐐圭畻渚垮疁浜嗭紝鐒跺悗鍘婚鎸慨缁冨満娴嬭瘯浠ヤ笅闆烽緳EX鍚庢瘡绾х殑浼ゅ锛屼笉瑕佹墦瀹岀湅鎶ヨ〃锛屽洜涓洪浄榫欐槸澶氭鏀诲嚮銆佽嚜韬澶囩殑绁濈绛夌瓑鏁堟灉锛屼激瀹充細鍑虹幇宸紓锛屽氨鐪嬮浄榫欑鍒版墿鐨勭涓鍑伙紝閮芥病鏈夋毚鍑绘垨鏆村嚮鐨鏁板锛屽娆℃祴璇曪紝濡傛灉鐪熺殑娌″樊璺濓紝閭ｅ氨鏄父鎴忕殑闂 ...
绛旓細灏戝コ鍓嶇嚎鍙嶉嗚帿浼婅幈2-EX闅愯棌鏀荤暐杩欏叧姝ｅ父鎵撴硶闈炲父楹荤儲锛岄潪甯镐笉鎺ㄨ崘锛岄殣钘忚繃鍏虫潯浠舵槸[鍚屾椂鍗犻4涓満鍦篯锛屽嵆涓嬪浘鐨4涓傚湴鍥句腑鍒濆鍙互甯冪疆3涓闃燂紝鍔犱笂鏈潵灏卞湪鐨凙R15璺熶腹寰疯幈锛岀湅璧锋潵浼间箮鏄澶у共涓鍦猴紝瀹為檯涓婂苟涓嶉傚悎鍘荤‖鐫鏉モ斺斿洜涓洪殢鐫鏃堕棿鎺ㄧЩ锛屽埌澶勬槸鎬紝鐢氳嚦杩炴灙楠戝叺閮藉埛鍑烘潵浜嗐傜敱浜庡湴鍥鹃噷鐨...
绛旓細鏈＋锛屼富杈撳嚭鎶鑳界偣婊″氨琛屻傚彟澶栵紝鐐奸噾鍙犲啺杩炴嫑锛屽啺闆繛澶+C2H5OH+鍐板厜鏉+杈撳嚭鎶鑳斤紙鍐版煴閲婃斁鎴栬呭博娴嗘尝娴侊級銆傝繖鏃跺欎綘浼氱湅鍒板啺鏌遍噴鏀炬毚鍑100W+鐨勫吇鐪艰緭鍑恒傘傘傚湥澹柟闈㈡病鍟ヨ鐨勪簡 鏈鍚庯紝瀵掑啺EX鍜屾瘨鐖嗕箣闂寸殑閫夋嫨銆傚彲浠ユ妸姣掔垎鍜屽啺闆繛澶╁墠缃+1锛屾妸sp鐐圭偣鍒板瘨鍐颁笂锛屾弧绾15绾ф墦涓ゆ嫵涔熻兘鎵撳嚭20W宸﹀彸...
