同一个excel数据表，有很多页，请问我怎样可以批量删除每页中的同一列？
\u540c\u4e00\u4e2aexcel\u6570\u636e\u8868\uff0c\u6709\u5f88\u591a\u9875\uff0c\u8bf7\u95ee\u6211\u600e\u6837\u53ef\u4ee5\u6279\u91cf\u5220\u9664\u6bcf\u9875\u4e2d\u7684\u540c\u4e00\u5217\uff1f1\uff0c \u6279\u91cf\u5220\u9664\u540c\u4e00\u5217 \u53ea\u9700\u8981 \u53f3\u952e\u4efb\u4f55\u4e00\u4e2a \u5de5\u4f5c\u8868 \u6807\u7b7e---- \u9009\u4e2d\u6240\u6709\u5de5\u4f5c\u8868--- \u5220\u9664 A:C \u5217\uff0c \u4fdd\u5b58\u5373\u53ef \uff0c \u6ce8\u610f\u5220\u9664\u540e \u518d\u70b9 \u4efb\u4f55\u4e00\u4e2a\u5de5\u4f5c\u8868\u6807\u7b7e \u53d6\u6d88\u5de5\u4f5c\u7ec4\u72b6\u6001
2\uff0c \u8981\u7528VBA
================================\uff1a
\u62c6\u5206\u5de5\u4f5c\u8584\u7684\u7a0b\u5e8f\uff0c\u6211\u4e4b\u524d\u5199\u7684\uff0c
Alt+F11 \u89c6\u56fe--\u4ee3\u7801\u7a97\u53e3\uff0c
\u628a\u5982\u4e0b\u590d\u5236\u8fdb\u53bb\uff08\u5982\u679c\u590d\u5236\u8fdb\u53bb\u4e0d\u6362\u884c\uff0c\u590d\u5236\u5230Word \u518d\u590d\u5236\u8fdb\u53bb) \u6309F5\u8fd0\u884c\u5373\u53ef
\u6700\u597d\u628a\u8fd9\u4e2aExcel \u653e\u5230\u4e00\u4e2a\u6587\u4ef6\u5939\u5185\u64cd\u4f5c, \u56e0\u4e3a\u9ed8\u8ba4\u751f\u6210\u5230\u5f53\u524d\u6587\u4ef6\u5939
Sub fencun()Application.ScreenUpdating = Falseapplication.displayalerts=falseb = Sheets.CountFor i = 1 To bSheets(i).Copya = ThisWorkbook.Worksheets(i).NameWith ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & a & ".csv".CloseEnd WithNext iapplication.displayalerts=trueApplication.ScreenUpdating = trueEnd Sub
1\uff0c \u6279\u91cf\u5220\u9664\u540c\u4e00\u5217 \u53ea\u9700\u8981 \u53f3\u952e\u4efb\u4f55\u4e00\u4e2a \u5de5\u4f5c\u8868 \u6807\u7b7e---- \u9009\u4e2d\u6240\u6709\u5de5\u4f5c\u8868--- \u5220\u9664 A:C \u5217\uff0c \u4fdd\u5b58\u5373\u53ef \uff0c \u6ce8\u610f\u5220\u9664\u540e \u518d\u70b9 \u4efb\u4f55\u4e00\u4e2a\u5de5\u4f5c\u8868\u6807\u7b7e \u53d6\u6d88\u5de5\u4f5c\u7ec4\u72b6\u6001
2\uff0c \u8981\u7528VBA
================================\uff1a
\u62c6\u5206\u5de5\u4f5c\u8584\u7684\u7a0b\u5e8f\uff0c\u6211\u4e4b\u524d\u5199\u7684\uff0c
Alt+F11 \u89c6\u56fe--\u4ee3\u7801\u7a97\u53e3\uff0c
\u628a\u5982\u4e0b\u590d\u5236\u8fdb\u53bb\uff08\u5982\u679c\u590d\u5236\u8fdb\u53bb\u4e0d\u6362\u884c\uff0c\u590d\u5236\u5230Word \u518d\u590d\u5236\u8fdb\u53bb) \u6309F5\u8fd0\u884c\u5373\u53ef
\u6700\u597d\u628a\u8fd9\u4e2aExcel \u653e\u5230\u4e00\u4e2a\u6587\u4ef6\u5939\u5185\u64cd\u4f5c, \u56e0\u4e3a\u9ed8\u8ba4\u751f\u6210\u5230\u5f53\u524d\u6587\u4ef6\u5939
Sub fencun()Application.ScreenUpdating = Falseapplication.displayalerts=falseb = Sheets.CountFor i = 1 To bSheets(i).Copya = ThisWorkbook.Worksheets(i).NameWith ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & a & ".csv".CloseEnd WithNext iapplication.displayalerts=trueApplication.ScreenUpdating = trueEnd Sub
\u6ee1\u610f\u8bf7\u91c7\u7eb3\u3002
右击工作表标签，“选定全部工作表”，选中欲删除列，按DELETE删除。
只能通过后台编程实现了
绛旓細:E8,涔熷氨鏄閫変腑鏁翠釜琛ㄦ牸銆傜偣鍑-鍥捐〃銆傜偣鍑讳箣鍚,鍦ㄥ浘琛ㄧ粍閲岄潰鈥滈夋嫨绨囩姸鏌卞舰鍥锯,閫変腑濂戒箣鍚,搴旇鏈夐瑙,娌￠棶棰樺悗鐐瑰嚮涓嬩竴姝ャ 绗鍏堟墦寮鍒朵綔鍥捐〃鎵闇鐨excel鏁版嵁,鐐瑰嚮椤甸潰涓婃柟鐨勨滄彃鍏モ濋夐」,鍦ㄥ脊鍑虹殑绐楀彛涓夋嫨铏氱嚎鏁ｇ偣鍥,鐒跺悗鎻掑叆绌虹櫧鍥捐〃銆傜劧鍚庣偣鍑婚〉闈㈠彸涓婅鐨勨滈夋嫨鏁版嵁鈥濇寜閽潵娣诲姞鏁版嵁銆傚湪寮瑰嚭绐楀彛...
绛旓細=SUMIF(D$2:D$13,D16,H$2:H$13)鍙虫媺澶嶅叕寮忚嚦J鍒,鍐嶄竴璧蜂笅鎷夊鍒跺叕寮忚嚦绗21琛 瀹屾垚
绛旓細鏁版嵁閫忚琛ㄥ伐鍏-鍒嗘瀽-閫夐」-鏄剧ず鎶ヨ〃绛涢夐〉锛屼細鐢熸垚浠ュ鍚2鍛藉悕鐨勪竴鍫嗗伐浣滆〃 鎸塻hift閫変腑杩欎簺宸ヤ綔琛ㄥ彲浠ュ悓鏃惰繘琛屾搷浣滐紝姣斿鍒犳帀鏈鍚庝竴鍒楄鏁板垪銆
绛旓細1. 浣跨敤鍏紡锛氫綘鍙互鍦ㄧ洰鏍囧伐浣滆〃涓娇鐢‥xcel鐨勫叕寮忔潵鎻愬彇鏁版嵁銆傚亣璁句綘瑕佷粠涓嶅悓鐨勫伐浣滆〃涓彁鍙朅鍒楃殑鏁版嵁锛屽彲浠ヤ娇鐢ㄥ涓嬬殑=Sheet1!A1鍏紡鏉ユ彁鍙朣heet1涓殑鏁版嵁锛岀劧鍚庢嫋鍔ㄨ鍏紡鍒板叾浠栧伐浣滆〃涓互鑾峰彇鐩稿簲鐨勬暟鎹2. 浣跨敤鏁版嵁閫忚琛細浣犲彲浠ュ湪Excel涓鍒涘缓鏁版嵁閫忚琛紝灏嗕笉鍚屽伐浣滆〃涓殑鏁版嵁鏁村悎鍦ㄤ竴璧峰苟姹...
绛旓細2銆佸皢闇鍚堝苟鐨Excel鏂囦欢鏀惧湪鍚屼竴涓鏂囦欢澶逛腑銆傛墦寮鏂板缓鐨凟xcel鏂囦欢锛屾寜Alt+F11閿紝鎵撳紑瀹忥紝閫夋嫨瑙嗗浘鈫掍唬鐮佺獥鍙ｃ3銆佷复鏃舵х殑灏戦噺宸ヤ綔绨垮皯閲忓伐浣滆〃鐨勬儏鍐碉紝鎴戜滑鐩存帴澶嶅埗绮樿创鏁版嵁鍗冲彲銆傝繖绉嶆儏鍐典笉浼氳姳澶鏃堕棿锛屽嵆浣胯亴鍦哄皬鐧界粷澶у鏁伴兘鏄彲浠ヨ交鏉句笂鎵嬨傚鏋滆鍚堝苟鐨凟xcel鏂囦欢鏍煎紡鏄疌SV锛屽彲浠ョ敤Windows鎵瑰鐞嗗懡浠...
绛旓細杩欑鎯呭喌涓嬶紝鍙互浣跨敤 Excel 涓鐨勨滈摼鎺モ濆姛鑳芥潵瀹炵幇銆傚叿浣撴楠ゅ涓嬶細鍦ㄩ渶瑕佸紩鐢鏁版嵁鐨勮〃鏍间腑閫夊畾涓涓崟鍏冩牸銆傚湪鍏紡鏍忎腑杈撳叆鈥=鈥濈鍙凤紝鐒跺悗鍦ㄥ叾浠栬〃鏍间腑閫夋嫨闇瑕佸紩鐢ㄧ殑鍗曞厓鏍笺傝緭鍏ュ畬姣曞悗锛屾寜涓嬧淓nter鈥濋敭銆傝繖鏃讹紝鍦ㄧ涓涓〃鏍涓夊畾鐨勫崟鍏冩牸閲屽氨浼氭樉绀哄叾浠栬〃鏍间腑瀵瑰簲鐨勬暟鎹簡銆傚鏋滃叾浠栬〃鏍间腑鐨勬暟鎹...
绛旓細姹囨诲埌涓寮琛,鍙互閲囧彇浠ヤ笅姝ラ:1. 灏嗘墍鏈夐渶瑕佹眹鎬荤殑Excel鏂囦欢鏀惧湪鍚屼竴鏂囦欢澶逛腑銆2. 鎵撳紑涓涓鏂扮殑Excel鏂囦欢,閫夋嫨鈥鏁版嵁鈥濋夐」鍗°3. 鐐瑰嚮鈥滀粠鏂囨湰/CSV鈥濆鍏ユ暟鎹,閫夋嫨鏂囦欢澶瑰苟鐐瑰嚮鈥滀笅涓姝モ濄4. 閫夋嫨闇瑕佸鍏ョ殑Excel鏂囦欢,鐐瑰嚮鈥滀笅涓姝モ濄5. 鍦ㄢ滃垪鏁版嵁鏍煎紡鈥濅腑閫夋嫨鈥滈楀彿鈥,鐐瑰嚮鈥滃畬鎴愨濄6. 鏍规嵁闇瑕佸...
绛旓細閫変腑R鍒楋紝鏍煎紡锛嶆潯浠舵牸寮忥紝鏉′欢閫夋嫨鍏紡锛屽叕寮忎负锛=COUNTIF(r,r1)>1锛鏍煎紡鎸夐挳杩涘幓锛屽浘妗堬紝閫夋嫨涓绉嶉鑹层
绛旓細铏界劧娌℃湁鐪嬪埌浣犵殑鏁版嵁鍏ㄨ矊锛屼絾鏈棶棰樼敤鏁版嵁閫忚琛ㄦ棤鐤戞槸鏈鍚堥傜殑銆傚鍥撅紝鎷栧姩鍑犱笅榧犳爣灏辨妸鏁版嵁鎸夋棩鎸夊鍚嶅垎鍒眹鎬讳簡銆傚鏋滄妸濮撳悕鎷栧埌鏈鍓嶉潰锛屽氨鍙互瀵规瘡涓汉涓涓鏈堢殑鏁伴噺姹囨伙紝鏋佷负鏂逛究銆
绛旓細Excel琛涓眰鍚屼竴涓浜轰竴澶╂湁澶氫釜鏁版嵁鐨勬椂鍊欙紝鍒ゆ柇鏌愬ぉ涓婄彮鎯呭喌锛屾湰韬槸鍙互鍙敤COUNTIFS澶氭潯浠舵眰涓暟锛屽啀鍔營F鍒ゆ柇鍑芥暟鍏紡鏉ュ仛鐨勶紝浣嗘槸鐢变簬浣犺〃涓殑鏃堕棿鏄湁灏忔椂鍙婂垎閽熸暟鐨勶紝鎵浠ラ渶瑕両F鍑芥暟缁勫悎SUMPRODUCT鍑芥暟銆丏ATE鍑芥暟銆乊EAR銆丮ONTH銆丏AY澶氫釜鍑芥暟缁勫悎鏉ュ仛銆傛牴鎹綘鐨勫浘鐗囧仛浜嗕竴涓畝鍗曚緥瀛愩侲2鍗曞厓鏍艰緭鍏ュ叕寮...
