excel VBA快速取消工作簿中各工作表的自動(dòng)篩選

excel VBA快速取消工作簿中各工作表的自動(dòng)篩選

當(dāng)工作簿中的工作表數(shù)量較多時(shí)，要快速取消各個(gè)工作表中的自動(dòng)篩選可以下面的VBA代碼。

1.按Alt+F11，打開(kāi)VBA編輯器。

2.在代碼窗口中輸入下列代碼

Sub RemoveAllAutoFilter()Dim sht As WorksheetFor Each sht In ActiveWorkbook.WorksheetsIf sht.AutoFilterMode = True Then sht.AutoFilterMode = FalseNextEnd Sub

3.關(guān)閉VBA編輯器，按快捷鍵Alt+F8，打開(kāi)“宏”對(duì)話框，選擇包含“RemoveAllAutoFilter”的宏名，并單擊“執(zhí)行”按鈕。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶(hù)投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶(hù)投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。