，有很多页，请问我怎样可以批量删除每页中的同一列？同一个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
\u53ea\u80fd\u901a\u8fc7\u540e\u53f0\u7f16\u7a0b\u5b9e\u73b0\u4e86
1， 批量删除同一列 只需要 右键任何一个 工作表 标签---- 选中所有工作表--- 删除 A:C 列， 保存即可 ， 注意删除后 再点 任何一个工作表标签 取消工作组状态2， 要用VBA
================================：
拆分工作薄的程序，我之前写的，
Alt+F11 视图--代码窗口，
把如下复制进去（如果复制进去不换行，复制到Word 再复制进去) 按F5运行即可
最好把这个Excel 放到一个文件夹内操作, 因为默认生成到当前文件夹
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銆佹墦寮word 鎵撳紑闇瑕佸幓鎿嶄綔鐨剋ord鏂囨。銆2銆佸叏閫夊鍒 鎸変綇ctrl A閫変腑鍏ㄩ儴鏂囨。鍐呭锛屼娇鐢ㄥ揩鎹烽敭ctrl c澶嶅埗閫変腑鐨勬枃妗ｅ唴瀹广3銆佺矘璐存枃妗 浣跨敤榧犳爣灏嗗厜鏍囩Щ鍔ㄥ埌闇瑕佺矘璐存枃妗ｅ銆4銆乧trl v绮樿创 浣跨敤蹇嵎閿甤trl v绮樿创澶嶅埗鐨勬枃妗ｃ5銆佸畬鎴 鏇存敼瀹屾垚鍚庯紝鍗冲彲鍦ㄦ枃妗ｄ腑瀹屾垚澶氶〉澶嶅埗銆傛荤粨...
绛旓細1锛 鎵归噺鍒犻櫎鍚屼竴鍒 鍙渶瑕 鍙抽敭浠讳綍涓涓 宸ヤ綔琛 鏍囩--- 閫変腑鎵鏈夊伐浣滆〃--- 鍒犻櫎 A:C 鍒楋紝 淇濆瓨鍗冲彲 锛 娉ㄦ剰鍒犻櫎鍚 鍐嶇偣 浠讳綍涓涓伐浣滆〃鏍囩 鍙栨秷宸ヤ綔缁勭姸鎬 2锛 瑕佺敤VBA ===锛氭媶鍒嗗伐浣滆杽鐨勭▼搴锛屾垜涔嬪墠鍐欑殑锛孉lt+F11 瑙嗗浘--浠ｇ爜绐楀彛锛屾妸濡備笅澶嶅埗杩涘幓锛堝鏋滃鍒惰繘鍘讳笉鎹㈣锛...
绛旓細鎵归噺鍒犻櫎word绌虹櫧椤垫楠1銆佷緷娆￠夋嫨鈥滅紪杈 鈥斺> 鏇挎崲鈥濓紝鎴栬呭悓鏃舵寜 Ctrl + H 閿紝鎵撳紑鈥滄煡鎵句笌鏇挎崲鈥濈獥鍙ｏ紝濡傚浘1鎵绀猴細鍥1 鎵归噺鍒犻櫎word绌虹櫧椤垫楠2銆佸崟鍑烩滈珮绾р濓紝渚濇閫夋嫨鈥滅壒娈婂瓧绗︹濃斺>鈥滄墜鍔ㄥ垎椤电鈥濓紝濡傚浘2鎵绀猴細鍥2 鎵归噺鍒犻櫎word绌虹櫧椤垫楠3銆佸崟鍑烩滃叏閮ㄦ浛鎹⑩濓紝鍒欐墍鏈夆滄墜鍔ㄥ垎椤电鈥濋兘...
绛旓細榧犳爣閫変腑绗竴涓伐浣滆〃銆傚乏鎵嬫寜浣廠hift锛屽彸鎵嬮紶鏍囩偣涓渶鍙充晶琛ㄦ牸锛屽叏閫夋墍鏈夊伐浣滆〃銆傜劧鍚庡湪浣犺杈撳叆鍐呭鐨勫崟鍏冩牸杈撳叆浣犺濉叆鐨勫唴瀹瑰氨濂戒簡銆
绛旓細8銆佸悗闈㈡湁绌虹櫧鏄笂涓椤靛唴瀹硅繃澶瀵艰嚧鐨勶紝涓鑸彲浠ユ妸榧犳爣鐐瑰埌绌虹櫧闈笂锛岀劧鍚庢寜鍥為閿紝閫鏈夊唴瀹圭殑閭ｄ竴闈紝绌虹櫧鐨勫氨娌℃湁浜嗭紝濡傛灉杩樺瓨鍦锛屽彲浠绋嶈皟鏁翠竴涓嬩笂涓椤靛唴瀹癸紝灏戜竴琛屽氨鍙互浜 銆9銆亀ord 棰勮鏈夌┖鐧介〉 椤甸潰瑙嗗浘鏃舵病鏈夈傜┖鐧介〉鏈夐〉鐮侊紝閫犳垚鎴戞墦鍗扮殑鏂囨。椤电爜涓嶈繛缁鎬庢牱鍒犻櫎锛氬彲鑳芥槸浣犵殑鏂囨。涓湁...
绛旓細浠PS 2019鐗堜负渚 1銆佺偣鍑烩滃紑濮嬧--->鍕鹃夆滄樉绀/闅愯棌娈佃惤鏍囪鈥2銆佸皢绌虹櫧椤垫墍鏈夌殑娈佃惤鏍囪锛堝寘鎷垎椤电锛夊垹闄ゅ嵆鍙瘇濡傝嫢鏈鍚庝竴椤佃繕鏈垹闄锛屽彲浠灏嗛紶鏍囨斁鍦ㄥ掓暟绗簩椤甸〉灏撅紝鐐瑰嚮涓涓嬶紝鐒跺悗鐩存帴鎸塩trl+delete鍗冲彲鍒犻櫎
绛旓細1銆佹垚鍔熷畨瑁匬DF缂栬緫鍣ㄥ悗鍙屽嚮鎵撳紑瀹冿紝鐒跺悗鐐瑰嚮鎵撳紑鏂囨。銆2銆佹墦寮鏂囨。鍚庯紝濡傛灉浣犻渶瑕佸垹闄ょ殑椤甸潰鍙湁涓涓ゅ紶锛屽彲浠鐩存帴鍦ㄧ缉鐣ュ浘涓寜浣廠hift閿変腑闇瑕佸垹闄ょ殑椤甸潰锛岀劧鍚庡崟鍑婚紶鏍囧彸閿紝閫夋嫨鈥滃垹闄ら〉闈⑩濄3銆佺劧鍚庡湪璺宠浆鍑烘潵鐨勯〉闈腑閫夋嫨鈥滄槸鈥濆氨瀹屾垚浜嗐4銆佸鏋滃垹闄ょ殑椤甸潰杈冨锛屾垜浠彲浠ョ洿鎺ュ湪宸ュ叿鏍忎腑閫夋嫨鈥滈〉闈...
绛旓細鐪嬪埌鍙樻垚瀹炲績鐨勫姞鍙锋椂鍙屽嚮涓涓;绗簲姝ワ細灏鍙互鎵归噺灏嗗叾浠栧崟鍏冩牸鐨勯〉鎻愬彇鍑烘潵浜嗐1. 鎵撳紑闇瑕佹搷浣滅殑Excel琛ㄦ牸锛屽湪浠绘剰鍗曞厓鏍间腑杈撳叆=MID(A1,1;2)锛屽叾涓瑼1涓洪渶瑕佹彁鍙栧墠涓や釜姹夊瓧鐨勫崟鍏冩牸鍦板潃銆傜偣鍑诲洖杞︾粨鏉熷嚱鏁扮紪杈戣緭鍏ャ2. 姝ゆ椂锛屽湪鎵閫夌殑鍗曞厓鏍煎唴锛屽皢浼氭樉绀哄嚭璇ュ崟鍏冩牸鐨勫墠涓や釜姹夊瓧 ...
绛旓細鍙兘閫氳繃鍚庡彴缂栫▼瀹炵幇浜
