同一个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
右击工作表标签，“选定全部工作表”，如果是部分工作表，按住CTRL后点需要的工作表标签，选择部分工作表，点选欲删除列的列标签全选该列，按DELETE键删除。
绛旓細鎻掑叆涓嬫媺鍒楄〃灏卞彲浠ヨ缃竴涓崟鍏冩牸鏈夊涓釜閫夐」浜嗐 (鐢佃剳鍨嬪彿:鎯犳櫘 (HP) 鏆楀奖绮剧伒8Pro,杞欢鍙婄増鏈彿:WPS 11.1.0.13703) 1銆佹墦寮涓涓狤xcel琛ㄦ牸銆 2銆佺偣鍑鏁版嵁,鍐嶇偣鍑绘彃鍏ヤ笅鎷夊垪琛ㄣ 3銆佽緭鍏ョ涓涓夐」鐨勫唴瀹瑰悗,鐐瑰嚮+銆 4銆佹帴鐫杈撶浜屼釜閫夐」,杈撳叆瀹屽氨鐐+,鐩村埌閫夐」杈撳叆瀹屾垚鍚,鍐嶇偣鍑荤‘瀹氥 5銆佺偣鍑诲崟鍏冩牸鍙...
绛旓細鎴戠湡鐨勫緢鍍忓府鍔╀綘 浣嗘槸杩欎釜鐪熺殑涓嶉渶瑕乂BA鏉ヨВ鍐 浣跨敤鏌ユ壘鍔熻兘Ctrl+F锛岀劧鍚庢壂鎻忔潯鐮佸氨鍙互浜 浣嗘槸锛屾潯鐮佹壂鎻忔灙鏈濂借繘琛屼竴涓嬭缃紝灏嗘湯灏炬坊鍔犲洖杞︾ 灏卞彲浠ユ悳绱簡锛屽惁鍒欒鎵嬪姩鎸夊洖杞 甯屾湜鑳藉甯埌浣 鏈夐棶棰樺啀闂惂
绛旓細1銆佺涓姝ュ厛鎵撳紑鍒朵綔鍥捐〃鎵闇鐨excel鏁版嵁锛鐐瑰嚮椤甸潰涓婃柟鐨勨滄彃鍏モ濋夐」锛屽湪寮瑰嚭鐨勭獥鍙ｄ腑閫夋嫨铏氱嚎鏁ｇ偣鍥撅紝鐒跺悗鎻掑叆绌虹櫧鍥捐〃銆2銆佺劧鍚庡啀鐐瑰嚮椤甸潰鍙充笂瑙掔殑鈥滈夋嫨鏁版嵁鈥濇寜閽潵娣诲姞鏁版嵁銆3銆佸湪寮瑰嚭鐨勭獥鍙ｄ腑閫夋嫨骞剁偣鍑烩滄坊鍔犫濄4銆佺劧鍚庣紪杈戞洸绾跨殑鍚嶇О锛岀劧鍚庨夋嫨X杞存暟鎹簮锛屽苟鍗曞嚮X杞撮夋嫨鍖哄煙鍓嶉潰鐨勫皬妗嗐5銆...
绛旓細excel鎻愪緵浜嗘寜鐓ч鑹茬瓫閫夌殑鍔熻兘锛屽彲浠ユ寜鐓у涓嬫楠ゆ搷浣滐紝閫変腑琛ㄦ牸绗竴琛鏁版嵁锛鎸夌瓫閫夊揩鎹烽敭銆恈trl+shift+L銆戠瓫閫夛紝鐒跺悗鐐瑰嚮绛涢夊浘鏍囷紝鎸夌収棰滆壊绛涢夈備箣鍚庨変腑绛涢夊悗鐨勬暟鎹换涓鍗曞厓鏍硷紝銆恈trl+a銆戝叏閮ㄩ変腑涔嬪悗澶嶅埗鍒版柊琛ㄥ嵆鍙
绛旓細1銆佺偣鍑汇鏁版嵁銆戙佲滃叏閮ㄥ埛鏂扳濓紝鐪嬬湅鏄惁鍙互杩涜鏇存柊锛2銆佺偣鍑汇愭暟鎹戙併愮紪杈戦摼鎺ャ戯紝鎸変笅銆怌trl+A銆戦夋嫨鍏ㄩ儴涔嬪悗锛岀偣鍑汇愭洿鏂板笺戣瀵熸槸鍚﹀凡缁忔洿鏂帮紱鍚屾椂锛岀偣鍑讳笅鏂圭殑銆愬惎鍔ㄦ彁绀恒戯紝閫夋嫨鈥滆鐢ㄦ埛閫夋嫨鏄惁鏄剧ず璇ヨ鍛娾濓紙涓嶈閫夋嫨绂佺敤锛夈3銆佹渶鍚庝竴鎷涘氨鏄娇鐢╒BA绋嬪簭鏉ユ墦寮鍚勪釜宸ヤ綔钖勶紝鎴栬呬娇鐢╒BA...
绛旓細1銆佸亣璁鹃渶瑕佹妸3鏈1鏃ュ埌3鏈10鏃ョ殑鏁版嵁鍚堝苟璧锋潵姹囨伙紝鎵撳紑鐢佃剳鏁版嵁鐩樸2銆佹柊寤虹┖鐧芥枃浠跺す锛岀劧鍚庢妸鍚堝苟鐨勮〃鏍兼斁缃湪杩欎釜鏂囦欢澶逛腑銆3銆佹柊寤涓涓绌虹櫧excel琛ㄦ牸銆4銆佺偣鍑籩xcel琛ㄦ牸涓暟鎹>鍚堝苟琛ㄦ牸鈥>澶氫釜宸ヤ綔琛ㄥ悎骞舵垚涓涓伐浣滆〃銆5銆佺偣鍑绘坊鍔犳枃浠讹紝鎶婇渶瑕佸悎骞剁殑excel鏁版嵁琛娣诲姞鍒版枃浠朵腑銆6銆佸畬鎴愪笂涓姝ュ悗...
绛旓細1.棣栧厛鎴戜滑鏉ョ湅鐪婭NDIRECT鍑芥暟鐨勭敤娉曘 INDIRECT 鍑芥暟鐨勪綔鐢ㄦ槸锛氬皢琛ㄧず鍗曞厓鏍煎紩鐢ㄧ殑鏂囨湰杞崲涓哄瀹為檯鍗曞厓鏍肩殑寮曠敤銆傚叿浣撶ず渚嬪涓嬪浘鎵绀猴細 2銆佷笂渚嬭繑鍥炵殑鏄鍚屼竴寮犲伐浣滆〃鐨勫唴瀹广 INDIRECT 鍔熻兘涔熼傜敤浜庝笉鍚屽伐浣滅翱鍜屽伐浣滆〃鐨勬枃鏈湴鍧銆 3.娉ㄦ剰锛氬紩鐢ㄩ儴鍒嗗伐浣滆〃鍚嶆椂锛岄渶瑕佸湪宸ヤ綔琛ㄥ悕鍓嶅悗鍔犱笂鑻辨枃鐘舵佺殑鍗...
绛旓細閫氳繃鈥滅粍鍚堝伐浣滆〃鈥濇潵瀹炵幇銆傚湪宸︿笅瑙掔殑浠讳竴宸ヤ綔琛ㄦ爣绛句笂锛屽崟鍑婚紶鏍囧彸閿紝鈥滈夊畾鍏ㄩ儴宸ヤ綔琛ㄢ濓紝鐒跺悗鍦ㄤ换涓宸ヤ綔鏈変腑鎵鍋氱殑淇敼锛岄兘灏嗗悓姝ュ埌鍏朵粬琛ㄦ牸鐨勭浉鍚屽崟鍏冩牸銆傚畬鎴愭椤规搷浣滃悗锛屽湪宸ヤ綔琛ㄦ爣绛句笂锛屽崟鍑婚紶鏍囧彸閿紝鈥滃彇娑堢粍鍚堝伐浣滆〃鈥濓紝閫鍑虹粍鍚堢姸鎬侊紝鍗冲彲銆
绛旓細瑕佹兂瀹炵幇澶氫釜鏁版嵁琛ㄤ箣闂寸殑鏁版嵁鍏宠仈锛屽簲鐢ㄧ▼搴寰堝銆備竴娆炬柊鏁版嵁澶勭悊杞欢FoxTable灏变笉閿欙紝鐢ˋcess涔熷彲浠ワ紝瀹冧滑閮藉彲灏excel鏁版嵁琛鐩存帴瀵煎叆锛屾棤璁烘槸鏁版嵁褰曞叆銆佹煡璇佺粺璁★紝杩樻槸鎶ヨ〃鐢熸垚锛屾搷浣滅畝鍗曘傚綋鐒讹紝濡傛灉瀵筫xcel搴旂敤闈炲父鐔熺粌锛堝鍗曞厓鏍煎紩鐢ㄣ佸叕寮忕紪杈戙佸嚱鏁板強鑷畾涔夊嚱鏁扮殑搴旂敤绛夛級锛屽氨涓嶆瘮鎺屾彙杩欎簺绫讳技鏁版嵁搴...
