如何将excel工作表拆分为多个独立文件？
点击【汇总拆分】，选择【拆分工作表】。将【表头行数】设置为1。关键词所在列设置为部门。勾选【保存为独立工作簿】，点击【确定】即可完成，详细步骤：
1、打开演示文件，要求将表格拆分为多个独立的文件。
2、点击下图选项。
3、点击【汇总拆分】，选择【拆分工作表】。
4、将【表头行数】设置为1。
5、关键词所在列设置为部门。
6、勾选【保存为独立工作簿】，点击【确定】即可完成。
7、完成效果如下。
绛旓細濡備笅鍥炬墍绀恒3銆佺偣鍑昏繖涓伐浣滆〃灏变細鍑虹幇宸ヤ綔绨挎媶鍒銆4銆佺偣鍑讳竴涓嬪伐浣滆杽鎷嗗垎涔嬪悗灏变細鍑虹幇閫夋嫨鏂囦欢锛岄夋嫨涓涓枃妗ｃ5銆侀夋嫨鎴愬姛涔嬪悗锛岀偣鍑诲紑濮嬫媶鍒嗗紑濮嬫媶鍒嗘垚鍔熶箣鍚庡氨浼氶渶瑕佷竴瀹氱殑鏃堕棿銆6銆佸鐞嗘垚鍔熶箣鍚庯紝鍙互鐪嬭鍦ㄨ繖涓湴鏂瑰浜嗕竴涓悓鍚嶇殑鏂囦欢锛屽苟涓旈噷闈㈠惈鏈夊涓猻heet鎷嗗垎鎴鐙珛鏂囦欢銆
绛旓細浠PS 2019鐗堟湰涓轰緥锛氬叧浜鎬庝箞鎷嗗垎涓涓Excel宸ヤ綔绨涓殑澶氫釜宸ヤ綔琛紝鎮ㄥ彲浣跨敤WPS鍙傝冧笅杩版楠ゅ畬鎴愭搷浣滐細1銆佹墦寮銆岃〃鏍硷紙Excel锛夈嶆枃妗ｏ紱2銆佺偣鍑汇屾暟鎹-鎷嗗垎琛ㄦ牸銆嶏紱3銆佹寜闇閫夋嫨銆屾妸宸ヤ綔琛ㄦ寜鐓у唴瀹规媶鍒嗐嶆垨銆鎶婂伐浣绨挎寜鐓宸ヤ綔琛ㄦ媶鍒銆嶄娇鐢ㄥ嵆鍙
绛旓細sht.Name, FileFormat:=xlNormal '灏嗗伐浣滅翱鍙﹀瓨涓篍XCEL榛樿鏍煎紡 ActiveWorkbook.Close Next MsgBox "鏂囦欢宸茬粡琚垎鎷嗗畬姣!"End Sub6.鍗曞嚮杩愯-杩愯瀛愯繃绋媩绐椾綋 鍑犵杩囧悗 寮瑰嚭鎻愮ず绐楀彛鈥滄枃浠跺凡琚鎷嗗垎瀹屾瘯鈥濓紱7.杩斿洖Excel宸ヤ綔绨鏂囦欢鎵鍦ㄨ矾寰勶紝鏌ョ湅 锛屽師鍏堝伐浣滅翱涓殑宸ヤ綔琛ㄥ凡缁忔垚涓哄崟鐙殑宸ヤ綔绨夸簡銆
绛旓細1銆佹墦寮闇瑕佺紪杈戠殑Excel鏂囨。銆傚鍥炬墍绀猴紝宸ヤ綔绨涓嬫柟鏈夊緢澶宸ヤ綔琛銆傜幇鍦ㄩ渶瑕佸皢杩欎簺宸ヤ綔琛ㄥ崟鐙鎷嗗垎寮鎴愪竴涓釜宸ヤ綔绨裤2銆佸彸閿换鎰忎竴涓伐浣滆〃鏍囩锛屽湪寮瑰嚭鐨勪笅鎷夊垪琛ㄤ腑閫夋嫨鏌ョ湅浠ｇ爜銆傚嵆寮瑰嚭浠ｇ爜绐楀彛銆傚涓嬪浘鎵绀恒3銆佺偣鍑昏彍鍗曟彃鍏ワ紝妯″潡鍦ㄥ脊鍑虹殑妯″潡瀵硅瘽妗嗕腑杈撳叆浠ヤ笅浠ｇ爜锛歅rivate Sub 鍒嗘媶宸ヤ綔琛()Dim sht ...
绛旓細浠婂ぉ璺熷ぇ瀹跺垎浜竴涓excel琛ㄦ牸鎬庝箞鎷嗗垎涓澶氫釜宸ヤ綔绨锛屾搷浣滄柟娉曞涓嬨1銆侀鍏堝湪鎵撳紑鐨勮〃鏍间腑锛岀偣鍑讳笅鍥鹃夐」銆2銆佺偣鍑汇愭眹鎬绘媶鍒嗐戯紝鐒跺悗鐐瑰嚮銆愭媶鍒宸ヤ綔琛銆戙3銆佹帴鐫鍦ㄦ墦寮鐨勭獥鍙ｄ腑锛屽皢銆愯〃澶磋鏁般戣缃负2銆4銆佺偣鍑汇愪繚瀛樹负鐙珛宸ヤ綔绨裤戯紝鐒跺悗鐐瑰嚮鍚庨潰鐨勯夐」璁剧疆淇濆瓨浣嶇疆銆5銆佽缃畬鎴愪箣鍚庯紝鐐瑰嚮銆愮‘瀹氥...
绛旓細excel灏嗕竴寮宸ヤ綔琛ㄦ媶鍒嗘垚澶氫釜宸ヤ綔琛ㄦ柟娉曞涓嬶細鎵撳紑闇瑕佺紪杈戠殑Excel鏂囨。銆傚鍥炬墍绀猴紝宸ヤ綔绨夸笅鏂规湁寰堝宸ヤ綔琛ㄣ傜幇鍦ㄩ渶瑕佸皢杩欎簺宸ヤ綔琛ㄥ崟鐙媶鍒嗗紑鎴愪竴涓釜宸ヤ綔绨裤傚彸閿换鎰忎竴涓伐浣滆〃鏍囩锛屽湪寮瑰嚭鐨勪笅鎷夊垪琛ㄤ腑閫夋嫨鏌ョ湅浠ｇ爜銆傚嵆寮瑰嚭浠ｇ爜绐楀彛銆傚涓嬪浘鎵绀恒傜偣鍑昏彍鍗曟彃鍏-妯″潡 鍦ㄥ脊鍑虹殑妯″潡瀵硅瘽妗嗕腑 杈撳叆浠ヤ笅浠ｇ爜锛...
绛旓細濡備綍灏嗗琛宸ヤ綔琛ㄦ媶鍒嗘垚澶氫釜宸ヤ綔琛ㄥ涓嬶細1銆侀鍏堟墦寮EXCEL琛ㄦ牸锛屽湪琛ㄦ牸涓殑鍔犺浇椤逛腑鎵惧埌鈥滄柟鏂规牸瀛愨濓紝閫夋嫨姹囨绘媶鍒嗗姛鑳姐2銆佺劧鍚庡湪涓嬫媺鑿滃崟涓紝閫夋嫨鎷嗗垎宸ヤ綔琛ㄧ殑鍔熻兘銆3銆佸湪寮瑰嚭鐨勮彍鍗曚腑锛屾牴鎹嚜宸遍渶瑕佽瀹氭媶鍒嗚鍒欍傝繖閲岃繘琛屽叧閿瓧鎷嗗垎銆傝〃澶村崰鎹1琛岋紝鎷嗗垎瀛楀湪A鍒楋紝鐒跺悗鐐瑰嚮纭畾銆4銆佺▼搴忚繍琛屽畬鎴愬悗锛屼細...
绛旓細宸ヤ綔涓粡甯镐細鐢ㄥ埌excel锛岀啛缁冪殑杩愯惀excel鍙互楂樻晥鐨勫噺灏戝伐浣滈噺锛屽緢澶氫汉鍒朵綔excel鏃朵細灏嗕笉鍚岀殑鏁版嵁鍒嗙被锛屽氨褰㈡垚浜嗕竴涓猠xcel涓湁澶氫釜宸ヤ綔琛(sheet)锛屼絾鏄敱浜庢煇浜涘師鍥犻渶瑕佸皢杩欎簺宸ヤ綔琛ㄥ崟鐙斁鍒颁竴涓猠xcel涓紝浣嗙敱浜庢暟鎹噺澶т細缁欐垜浠殑宸ヤ綔甯︽潵寰堝鍥版壈锛鎬庝箞灏唀xcel澶氫釜宸ヤ綔琛ㄦ媶鍒嗘垚澶氫釜鍗曠嫭鐨別xcel锛焑xcel鏄釜寰...
绛旓細锛岀偣鍑汇愮‘瀹氥戝嵆鍙畬鎴愶紝璇︾粏姝ラ锛1銆佹墦寮婕旂ず鏂囦欢锛岃姹傚皢琛ㄦ牸鎷嗗垎涓澶氫釜鐙珛鐨勬枃浠躲2銆佺偣鍑讳笅鍥鹃夐」銆3銆佺偣鍑汇愭眹鎬绘媶鍒嗐戯紝閫夋嫨銆愭媶鍒嗗伐浣滆〃銆戙4銆佸皢銆愯〃澶磋鏁般戣缃负1銆5銆佸叧閿瘝鎵鍦ㄥ垪璁剧疆涓洪儴闂ㄣ6銆佸嬀閫夈愪繚瀛樹负鐙珛宸ヤ綔绨裤戯紝鐐瑰嚮銆愮‘瀹氥戝嵆鍙畬鎴愩7銆佸畬鎴愭晥鏋滃涓嬨
绛旓細灏嗗伐浣滅翱鍙﹀瓨涓篍XCEL榛樿鏍煎紡 ActiveWorkbook.Close Next MsgBox "鏂囦欢宸茬粡琚垎鎷嗗畬姣!"End Sub 4 鍗曞嚮杩愯-杩愯瀛愯繃绋媩绐椾綋 鍑犵杩囧悗 寮瑰嚭鎻愮ず绐楀彛鈥滄枃浠跺凡琚鎷嗗垎瀹屾瘯鈥5 杩斿洖Excel宸ヤ綔绨鏂囦欢鎵鍦ㄨ矾寰 鏌ョ湅 濡備笅鍥炬墍绀 鍘熷厛宸ヤ綔绨夸腑鐨勫伐浣滆〃宸茬粡鎴愪负鍗曠嫭鐨勫伐浣滅翱浜嗭紒涓嶄俊 鍙互瀵圭収鏌ョ湅鍥句腑鐨勪慨鏀规棩 ...
