選中你需要處理的區(qū)域后,按F5,出現(xiàn)"定位"對話框,選擇空值,確定即可選中區(qū)域內(nèi)所有空單元格,然后右鍵刪除即可。
進(jìn)入宏的“安全性”設(shè)置,安全級別選擇“低”。點(diǎn)擊“確定”,再次打開該excel文件就不會受到宏的影響了。
Subdeletewords()arr=Array("寶麗姿","abc","其他")'此處添加所有關(guān)鍵詞Fori=501To2Step-1'刪除行和常用方法是從下往上循環(huán)tmp=Cells(i,"B")ForEachaInarrIfInStr(tmp,a)...
1、打開需要進(jìn)行刪除操作的excel表格。2、在A列單元格的正上方找到下圖所示的位置。3、例如需要?jiǎng)h除第3行到第10行的數(shù)據(jù),可以在下圖的位置輸入A3:A10。4、點(diǎn)擊回車后,表格會自動(dòng)選中第3行到第10行的數(shù)據(jù)。5、鼠標(biāo)右鍵...
ALT+F8,然后選中宏名,點(diǎn)“刪除”
'a為首列位置,b為末列數(shù),按1,2,3填寫'A列為1,B列為2依次類推,sheet_n為DimiAsIntegerFori=aTobRange(CStr(Chr(96+a)&":"&Chr(96+a))).DeleteNextiEndSub...
subtest()fori=cells(rows.count,1).end(3).rowto1step-1ifcells(i,1)=“STATUS”thenrange("A"&i&":A"&i+2).entirerow.deleteendifnextendsub...
0ThenCells(D,S).ClearCells(D,S-1).ClearElseEndIfNextNextSheets(1).SelectRange("a1").SelectEndSub使用以上代碼,然后創(chuàng)建宏按鈕選擇第一個(gè)控件,然后指定這個(gè)宏就行了。有用請采納!
s=Array(5,6,10,11)'需要?jiǎng)h除的列k=0ForEachiIns'倒置,從右側(cè)開始刪除,避免左側(cè)的列號改變y(k)=ik=k+1NextForj=k-1To0Step-1'刪除操作Debu...
subtest()dimmPathasstring,fnasstring,wbasworkbook,shasworksheet,rgasrangeonerrorresumenextmPath="D:\我的Excel文件\"'設(shè)置路徑。此處假設(shè)要處理的表格文件,在D:\我的Excel文件\這個(gè)位置。