在excel中如何使用vba命令实现批量删除指定名称的工作表 在excel中如何使用vba命令实现批量删除指定名称的工作表...
\u5982\u4f55\u6279\u91cf\u4fee\u6539excel\u591a\u4e2a\u5de5\u4f5c\u8868\u7684\u6307\u5b9a\u540d\u79f0http://jingyan.baidu.com/article/6fb756ec8c6703241858fbba.html
\u6309Alt
+
F11\uff0c\u53cc\u51fbThisWorkbook\uff0c\u7c98\u8d34\u4e0b\u9762\u7684\u4ee3\u7801\uff1a
Sub
ouyangff()
On
Error
Resume
Next
Application.DisplayAlerts
=
False
For
i
=
2
To
[g65536].End(3).Row
a$
=
Cells(i,
7)
Sheets(a$).Delete
Next
Application.DisplayAlerts
=
True
End
Sub
\u6309Alt
+
F11\uff0c\u56de\u5230\u4f60\u7684\u753b\u9762\u6240\u793a\u7684\u201c\u8868\u201d\u4e2d\uff01
\u6309Alt
+
F8\uff0c\u786e\u5b9a\uff01
\u53bb\u8bd5\u4e00\u8bd5\u5427\uff01\uff01\uff01
Sub ouyangff()
On Error Resume Next
Application.DisplayAlerts = False
For i = 2 To [g65536].End(3).Row
a$ = Cells(i, 7)
Sheets(a$).Delete
Next
Application.DisplayAlerts = True
End Sub
按Alt + F11，回到你的画面所示的“表”中！
按Alt + F8，确定！
去试一试吧！！！
已修改。其中cells（2，7）表示第2行，第7列。如果要改到其他列，可以稍作修改。
Sub te()
Dim Arr1
On Error Resume Next
Application.DisplayAlerts = False
Arr1 = Range(Cells(2, 7), Cells(Cells(65536, 7).End(xlUp).Row, 7))
For Each i In Arr1
Sheets(i).Delete
Next
Application.DisplayAlerts = True
End Sub
代码及注释如下：
Sub shanchu()
Application.DisplayAlerts = False'关闭提示，否则每删除一个非空工作表，都会出现提示
For i = 2 To [g65536].End(3).Row'i从2到G列最后一个非空行数循环
Sheets(Cells(i, 7).Delete'将工作表名为G列对应的工作表删除
Next
Application.DisplayAlerts = True'开启提示
End Sub
绛旓細鍙︿竴绉嶆柟娉曟槸浣跨敤鍚嶇О鏉ユ寚鏄庡叿浣撶殑瀵硅薄锛岃繖鏄竴绉嶆瘮杈冨畨鍏ㄧ殑鏂瑰紡锛欱alls(鈥淪occer鈥).Kick 寰堟槑纭湴鐭ラ亾鏄韪㈣冻鐞冦鍦‥xcel VBA涓紝瀵逛簬澶у鏁板姩璇嶆垨鑰呮柟娉曪紝閮戒細鏈夊弬鏁板憡璇濡備綍鎵ц鍔ㄤ綔锛岃繖浜涘弬鏁扮浉褰撲簬鍓瘝銆備綘鍙兘鎯虫妸瓒崇悆韪㈠埌宸﹁竟骞朵笖鏄娇鍔茶涪锛欱alls(鈥淪occer鈥).KickDirection:=Left,Force:=Hard ...
绛旓細鎴戠殑鎬濊矾锛堝綋鐒朵篃鏄瑪鑰呭湪褰撳垵瀛︿範Excel VBA鏃剁殑缁忛毦锛夋槸锛屽厛甯﹂璇昏呰璇嗕竴浜涘父鐢ㄧ殑瀵硅薄鍙婂叾琛ㄧず銆傚洜涓哄彧鏈変綘鍏堢煡閬撲簡瑕浣跨敤鐨勫璞★紝鎵嶈兘杈惧埌鑷凡鐨勭洰鐨勩傚鏋滀綘閮戒笉鐭ラ亾浣犺鎿嶄綔浠涔堬紝绌烘湁涓鐣湰棰嗭紝涔熶細鎰熻涓澶撮浘姘淬傛棦鐒朵綘鐜板湪宸茬粡璁よ瘑浜嗕笉灏戠殑Excel瀵硅薄锛屼篃鐭ラ亾浜嗗畠浠槸濡備綍鍦‥xcel涓琛ㄧず鐨勶紝鐭ラ亾...
绛旓細浠庡熀纭鍒版繁鍏ヨ绮鹃氬畯锛屼粠鍩虹鐨刅BA鍏ラ棬寮濮嬶紝鐒跺悗閫愭瀛︿範濡備綍鍒涘缓鍜岀鐞嗗畯銆傝绋嬭矾寰勫寘鎷細璇剧▼1锛氬畯鍩虹 - 璁╀綘蹇熶笂鎵嬪苟鐞嗚В瀹忕殑杩愪綔鍘熺悊銆傝绋2锛歏BA鍩虹 - 鎺屾彙VBA璇硶锛屼负瀹忕紪鍐欐彁渚涘潥瀹炵殑鍩虹銆...鐩村埌绗崄涓璇撅細娣卞叆瀛︿範VBA鍑芥暟鍜屽瓙绋嬪簭锛岃浣犵殑瀹忔洿寮哄ぇ銆傚畯锛屽氨鍍Excel鐨闅愬舰甯墜锛鐢╒BA...
绛旓細瑕浣跨敤VBA鍒涘缓鏂鐨凟xcel鏂囦欢锛屾偍鍙互鎸夌収浠ヤ笅姝ラ杩涜鎿嶄綔锛氭墦寮Excel骞舵寜涓婣lt + F11鎵撳紑VBA缂栬緫鍣ㄣ鍦VBA缂栬緫鍣ㄤ腑锛岀‘淇"椤圭洰璧勬簮绠＄悊鍣"绐楀彛鍙銆傚鏋滄湭鏄剧ず锛岃鎸変笅Ctrl + R鏉ユ樉绀哄畠銆傚湪"椤圭洰璧勬簮绠＄悊鍣"绐楀彛涓紝灞曞紑"VBAProject锛堟偍鐨勫伐浣滅翱鍚嶇О锛"锛岀劧鍚庡弻鍑"Sheet1锛圫heet1锛"锛堟垨鑰呭叾浠栧伐浣...
绛旓細濡備綍浣跨敤VBA鎿嶆帶Excel鐣岄潰锛熸湰鏂囪瑙ｆ搷鎺у伐浣滆〃涓竴浜涚晫闈㈠厓绱犵殑VBA浠ｇ爜銆傚伐浣滆〃涓殑琛屽垪 闅愯棌鍜屽彇娑堥殣钘忚鏍囬 涓嶈兘澶熷垎鍒崟鐙殣钘忚鏍囬鍜屽垪鏍囬锛屽彧鑳藉悓鏃堕殣钘忔垨鑰呮樉绀鸿繖涓や釜鏍囬銆傜ず渚嬩唬鐮侊細鈥橀殣钘忓拰鍙栨秷闅愯棌娲诲姩绐楀彛涓椿鍔ㄥ伐浣滆〃鐨勮鏍囬鍜屽垪鏍囬鈥橀殣钘忔爣棰楢ctiveWindow.DisplayHeadings= False鈥樺彇娑堥殣钘忔爣棰...
绛旓細瑕鍦‥xcel涓娇鐢╒BA杩涜鑷姩鍔犲噺涔橀櫎杩愮畻锛屾偍鍙互浣跨敤浠ヤ笅浠ｇ爜绀轰緥锛歋ub AutoMathOperations()Dim ws As Worksheet Dim lastRow As Long ' 璁剧疆瑕佽繘琛岃繍绠楃殑宸ヤ綔琛 Set ws = ActiveSheet ' 鑾峰彇鏈鍚庢湁鏁版嵁鐨勮鍙 lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' 瀹氫箟杩愮畻绗﹀拰鎿嶄綔鏁扮殑鍒楀彿...
绛旓細Range瀵硅薄鎴愬憳涓嶅惈浣犳墍璇鐨杩欑鏂规硶鐨勩傝В鍐虫柟娉曪細鍙互鍙彇鍊硷紝濡傦細Range("A1").Value 涔熷彲浠ュ厛澶嶅埗锛岀劧鍚庣矘璐翠负鍊笺傚锛歊ange("A1").CopyRange("B1").PasteSpecial xlPasteValues
绛旓細2锛夎嫢鎮ㄦ槸WPS浼佷笟鐗堢敤鎴凤紝鍙湪WPS涓櫥褰曟偍鐨浼佷笟璐﹀彿锛屾垨杈撳叆搴忓垪鍙锋縺娲籛PS锛岃幏鍙VBA鏀寔搴撶殑瀹夎鏉冮檺銆2銆佸惎鐢ㄥ畯 鐧诲綍浼佷笟璐﹀彿鎴栬緭鍏ュ簭鍒楀彿婵娲籛PS鍚庯紝鐐瑰嚮銆屽惎鐢ㄥ畯銆嶆寜閽紝鑾峰彇VBA瀹夎鏉冮檺锛岃繘涓姝ュ畨瑁匳BA銆3銆佸凡鏈塚BA瀹夎鍖 鑻ユ偍宸叉湁VBA瀹夎鍖咃紝瀹夎瀹屾垚鍚庯紝閲嶆柊鍚姩WPS鍗冲彲浣跨敤銆俉PS鐩墠宸叉敮鎸乂BA 7...
绛旓細瑕鍒╃敤 VBA 鍦 Excel 涓瀹炵幇鏁版嵁鑷姩閰嶅锛屼綘鍙互鎸夌収浠ヤ笅姝ラ杩涜鎿嶄綔锛1. 鎵撳紑 Excel锛屾寜涓 `Alt + F11` 缁勫悎閿墦寮 Visual Basic Editor銆2. 鍦ㄥ乏渚х殑鈥滈」鐩祫婧愮鐞嗗櫒鈥濈獥鏍间腑锛屾壘鍒板苟灞曞紑浣犵殑宸ヤ綔绨匡紙Workbook锛夈3. 鍙屽嚮宸ヤ綔绨跨殑鍚嶇О锛屽湪鈥滀唬鐮佺獥鍙ｂ濅腑杈撳叆浠ヤ笅 VBA 浠ｇ爜锛歚``vba Sub 鑷姩...
绛旓細涓嬮潰灏忕紪涓哄ぇ瀹朵粙缁excel涓娇鐢╲ba缁欏崟鍏冩牸鎵归噺杈撳叆搴忓彿鏂规硶锛屾帹鑽愬埌鎴戜滑锛屽枩娆㈢殑鏈嬪弸鍙互鍙傝冩湰鏂囷紝涓璧锋潵鐪嬬湅鍚э紒姝ラ 1銆侀鍏堟垜浠墦寮涓涓伐浣滄牱琛ㄤ綔涓轰緥瀛愩2銆鍦╡xcel宸ヤ綔琛ㄤ腑杈撳叆搴忓垪鍙峰緢绠鍗曪紝鍦╝1锛宎2鍗曞厓鏍间腑杈撳叆鏁板瓧1鍜2鍚庯紝浣跨敤濉厖鍔熻兘涓嬫媺鍗冲彲瀹屾垚搴忓垪鍙风殑杈撳叆銆3銆佸彲鏄綋鎴戜滑閬囧埌杈撳叆澶ч噺搴忓垪...
